<%
sayfa=http://www.astroloji.org/yildizfali/basak.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,"Nisan")
icerik = Mid(SayfaKodu,yer,10233)
response.write icerik
%>