<%
'Hent siden http://www.microsoft.com/ms.htm
Dim objSocket
Set objSocket = Server.CreateObject("Socket.TCP")
objSocket.Host = "www.microsoft.com:80"
strRequest = "GET /ms.htm HTTP/1.0" & VbCrLf
strRequest = strRequest & "Host:www.microsoft.com" & VbCrLf
objSocket.Open
objSocket.SendLine(strRequest)
objSocket.WaitForDisconnect
tmpBuffer = objSocket.Buffer

'Fjern http headeren og udskriv
Pos = InStr(tmpbuffer, VbCrLF&VbCrLf)
tmpbuffer = Mid(tmpbuffer, pos+1)
response.write tmpbuffer
objSocket.Close
Set objSocket = Nothing

%>