<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>
