<% '******************************************************* '* ASP 101 Sample Code - http://www.asp101.com/ * '* * '* This code is made available as a service to our * '* visitors and is provided strictly for the * '* purpose of illustration. * '* * '* http://www.asp101.com/samples/license.asp * '* * '* Please direct all inquiries to webmaster@asp101.com * '******************************************************* %> <% ' Start out declaring our variables. ' You are using Option Explicit aren't you? Dim objWinHttp Dim strHTML ' New WinHTTP v5.1 - from MS: ' ' With version 5.1, WinHTTP is now an operating-system component ' of the following systems: ' - Microsoft Windows Server 2003 family ' - Microsoft Windows XP, Service Pack 1 ' - Microsoft Windows 2000, Service Pack 3 (except Datacenter Server) Set objWinHttp = Server.CreateObject("WinHttp.WinHttpRequest.5.1") ' Full Docs: ' http://msdn.microsoft.com/library/en-us/winhttp/http/portal.asp ' ' If you have trouble or are getting connection errors, ' try using the proxycfg.exe tool. ' Here we get the request ready to be sent. ' First 2 parameters indicate method and URL. ' The third is optional and indicates whether or not to ' open the request in asyncronous mode (wait for a response ' or not). The default is False = syncronous = wait. ' Syntax: ' .Open(bstrMethod, bstrUrl [, varAsync]) objWinHttp.Open "GET", "http://www.asp101.com/samples/httpsamp.asp" ' Send it on it's merry way. objWinHttp.Send ' Print out the request status: Response.Write "Status: " & objWinHttp.Status & " " _ & objWinHttp.StatusText & "
" ' Get the text of the response. strHTML = objWinHttp.ResponseText ' Trash our object now that I'm finished with it. Set objWinHttp = Nothing ' All that's left to do is display the HTML we just retreived. ' I do it first as plain HTML (which gets interpretted by the ' browser like any other HTML) and then as source (by HTML ' encoding it so the tags display instead of rendering) ' The

s and s are just for appearence. %>

Here's The Page:

<%= strHTML %>

Here's The Code:

<%= Server.HTMLEncode(strHTML) %>