 |
|
|
|
|
<%
If Request.Querystring("URL")="" then
strURL="?"
Else
if InStr(request("URL"),"?") then
strURL=Request("URL") & "&"
else
strURL=Request("URL") & "?"
end if
strRequest = Replace(request.Querystring,"&URL=http://194.177.142.131/gaestebuch/save.asp","")
End If
Set objXML = CreateObject("MSXML2.ServerXMLHTTP")
objXML.Open "GET", strURL & "URL=/inhalt/stadthalle/17867.htm&" & strRequest, False
objXML.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
objXML.Send
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = 2 'adTypeText
objStream.WriteText (objXML.responseBody)
objStream.Position = 0
objStream.Charset = "utf-8"
Dim strHTML
Dim strDummy
strDummy = objStream.ReadText(-1) ' -1 = adReadAll
strHTML = right(strDummy,Len(strDummy)-2)
Response.Write strHTML
objStream.close
Set objStream = Nothing
Set objXML = Nothing
'Dim strHTML
'strHTML = objXML.ResponseText
'response.write strHTML
%>
|
|
|
