<%
sURL = "http://myserver/myurl?a=1"
sForm = "b=1&c=1"
Set oXH = Server.CreateObject("MSXML2.ServerXMLHTTP")
' If you are POSTING a form use this code:
LINE 10 >> oXH.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
oXH.open "POST", sURL, False
' If you are GETTING a page use this code:
oXH.open "GET", sURL, False
oXH.send sForm
If oXH.status <> 200 Then
Response.Write "Status Error " & oXH.status
Response.End
End If
sResult = oXH.responseText
sFinalURL = oXH.getOption(-1) ' -1 = SXH_OPTION_URL
Response.Write "The final page URL (after any redirects) is " & sFinalURL & "<br/>"
Response.Write "HTML of the page is <textarea>" & sResult & "</textarea>"
%>
Bookmarks