Get HTML Source Code from any URL

<%
dim objXMLHTTP
URL = Request.form("URL")
if ( URL = "" ) then
URL = "http://www.yahoo.com"
end if

Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objXMLHTTP.Open "GET", URL, false
objXMLHTTP.Send

Response.Write "<hr>"
Response.Write "<h4>HTML Code for&nbsp"&URL&"</h4>"
Response.Write "<textarea rows=30 cols=120>"
Response.Write objXMLHTTP.responseText
Response.Write "</textarea>"
Set objXMLHTTP = Nothing
%>