<script language="vb" runat="server">
sub page_load(src as object, e as eventargs)
try
dim objresponse as system.net.webresponse
dim objrequest as system.net.webrequest
dim theurlresult as string
dim theurl as string = "http://www.funinspace.com"
objrequest = system.net.httpwebrequest.create(theurl)
objresponse = objrequest.getresponse()
dim sr as new system.io.streamreader(objresponse.getresponsestream())
theurlresult=server.htmlencode(sr.readtoend())
page.controls.add(new literalcontrol(theurlresult))
catch ex as exception
page.controls.add(new literalcontrol(ex.message))
end try
end sub
</script>
<html><head>
<title>scraping a website</title>
</head>
<body bgcolor="#ffffff">
<h3><font face="verdana">scraped data</font></h3>
</body></html>
