<%
sayfa=http://www.------.com/vs.asp
On Error Resume Next 
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)
yer    = Instr(1,SayfaKodu,"sayfadabukelimeyibul") 
icerik     = Mid(SayfaKodu,yer,10233) 
 
response.write icerik
%>