<%
mls_userID = "2323"
mls_debug = "0" ' Setzen Sie die Variable auf 1 um die Ausgabe zu testen
mls_html_delim_pre = "" ' Trennzeichen vor dem Link (z.B.:
oder » oder ein anderes Zeichen)
mls_html_delim_post = " " ' Trennzeichen nach dem Link (z.B.:
oder ein anderes Zeichen)
mls_site_encoding = "" ' Website encoding. Z.B.: KOI8-U, UTF-8, iso-8859-1
IF (Request.ServerVariables("REQUEST_METHOD") <> "POST") THEN
IF Len( Request.ServerVariables("QUERY_STRING") ) THEN
page = Request.ServerVariables("URL") & "?" & Request.ServerVariables("QUERY_STRING")
ELSE
page = Request.ServerVariables("URL")
END IF
mls_url = "http://data.mylinkstate.com/?userID=" & mls_userID & "&dom=" & Request.ServerVariables("HTTP_HOST") & "&page=" & SERVER.HTMLEncode(page) & "&qstr=&ip=" & Request.ServerVariables("REMOTE_ADDR") & "&debug=" & mls_debug & "&mls_html_delim_pre=" & SERVER.HTMLEncode(mls_html_delim_pre) & "&mls_html_delim_post=" & SERVER.HTMLEncode(mls_html_delim_post) & "&mls_site_encoding=" & SERVER.HTMLEncode(mls_site_encoding)
Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
objHTTP.SetTimeouts 1000, 1000, 1000, 1000
objHTTP.open "GET", mls_url, false
objHTTP.send
GetURL = objHTTP.ResponseBody
IF (objHTTP.Status = "200") THEN
Response.BinaryWrite objHTTP.ResponseBody
END IF
END IF
%>
Nach seinem Abschluss an der Universidad Nacional im Jahre 2000 bat sich ihm die Möglichkeit seine erlernten Fähigkeiten sogleich an Staatsobjekten zu verwirklichen. Als Fiscal vor Ort übernahm er im Auftrag des Ing. Andrés Rivarola Casaccia die Bauaufsicht der beiden Justizpaläste in Cln.Oviedo und Villarrica. Mit 35 Jahren ist Rodrigo Sanchez ein junger, erfahrenerArchitekt und übernimmt von Bauplanung, Zeichnung und Realisierung alles was mit der Konstruktion eines Gebäudes zu tun hat.
<%
Servername = LCase(Request.ServerVariables("SERVER_NAME"))
Scriptname = LCase(Request.ServerVariables("SCRIPT_NAME"))
Varname = LCase(Request.ServerVariables("QUERY_STRING"))
if Varname <> "" then
seite = "http://"+Servername+Scriptname+"?"+Varname
else
seite = "http://"+Servername+Scriptname
end if
link = Server.URLEncode(seite)
Private Function GetURL(URL)
Set objHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")
objHTTP.SetTimeouts 1000, 1000, 1000, 1000
objHTTP.open "GET", URL, false
objHTTP.send
GetURL = objHTTP.ResponseBody
Set objHTTP = Nothing
End Function
Response.BinaryWrite GetURL("http://www.thelinkbox.com/extern.php?seite="+link)
%>