Dim objXmlHttp
Dim strHTML
Set objXmlHttp = Server.CreateObject("Msxml2.XMLHTTP")
objXmlHttp.open "GET", ""&sayfa&"", False
objXmlHttp.send
strHTML = objXmlHttp.ResponseText
Set objXmlHttp = Nothing
SayfaKodu = Server.HTMLEncode(strHTML)

kod bu, ama hallettim heralde sayfayı açamadığı için veriyor