.asp HTML kaynak kodu alma

<%
Function htmlCek(Adresten)
	
	On Error Resume Next
	
	Set oXMLHttp = Server.CreateObject("Msxml2.ServerXMLHTTP")
		oXMLHttp.open "GET", Adresten, False
		oXMLHttp.setRequestHeader "Content-Type", "text/html;"
		oXMLHttp.Send()
	
		htmlCek = oXMLHttp.responseText

		If Err.Number <> 0 Then htmlCek = "BOS"
	
	Set oXMLHttp = Nothing


End Function


strVeri = htmlCek("http://www.google.com")

Response.Write(strVeri)
%>