Connection: close Date: Thu, 11 Mar 2010 15:09:16 GMT Server: Microsoft-IIS/6.0 MicrosoftOfficeWebServer: 5.0_Pub X-Powered-By: ASP.NET Content-Length: 19826 Content-Type: text/html; Charset=UTF-8 Expires: Wed, 10 Mar 2010 15:09:14 GMT Cache-control: no-store
<%
Session.CodePage=65001
Response.Charset="UTF-8"
Response.Buffer = True
Dim objH, respHeaders
' Create an xmlhttp object:
Set objH = Server.CreateObject("Microsoft.XMLHTTP")
' Opens the connection to the remote server.
objH.Open "GET", "http://www.rodsdot.com/", False
objH.Send
respHeaders = objH.getAllResponseHeaders()
Set objH = nothing
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
<html lang="en">
<head>
<title>Response Headers</title>
</head>
<body>
<p><%=respHeaders%>
</body>
</html>