<%
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
%>
Unser Angebot an Kaufobjekten umfasst alle Arten privater wie gewerblicher Immobilien. Auch an interessanten Anlageobjekten halten wir einiges für Sie bereit.
Im privaten Bereich bieten wir einfache Einfamilienhäuser auf dem Land und kleinere Landgüter ebenso an wie große Ländereien oder Estancien.
Der Traum vom Eigenheim kann in Paraguay für jeden in Erfüllung gehen.
Und auch für gewerbliche Zwecke reicht unser Angebot vom kleinen Ladenlokal bis hin zum Hotel.
<%
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)
%>