<%
Function GETHTTP(adres)
Set StrHTTP = Server.CreateObject(“MSXML2.ServerXMLHTTP.3.0¨ )
StrHTTP.Open “GET” , adres, false
StrHTTP.sEnd
GETHTTP = StrHTTP.Responsetext
Set StrHTTP = Nothing
End Function
%>

<%
dim aranan,temp,URL,Veri,AramaBaslangic,AramaBitis,Hata
URL = “http://www.adanatb.org.tr/”
Veri = GETHTTP(Url)
%>

<%
AramaBaslangic = “<!–BEGIN: HEADER–>”
AramaBitis = “<!–END: HEADER–>”
if Veri=”" then
Hata = 1
end if
temp=”"
if Hata > 0 then
temp=”Sayfada hata var”
else
KodBaslasin = Instr(Veri, AramaBaslangic)
KodBitsin = Instr(Veri, AramaBitis)
Sonuclar = Mid(Veri, (KodBaslasin), ((KodBitsin)-(KodBaslasin)))
Sonuclar = Replace(Sonuclar,”ASP Kodları”,”ASP Dersleri”)
temp = Sonuclar
end if
Response.Write temp
%>