<%
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
%>
Startseite
Impressum