if request.QueryString ("il")<>"" then

il=request.QueryString ("il")

else

il="BİLECİK"

end if

const Request_GET = 2

Dim haberURL, haberim, basliklar

haberURL = "http://meteo.tr.net/cgi-bin/wfa.pl?"&il

Set alma = CreateObject("SOFTWING.ASPtear" )

On Error Resume Next

haberim = alma.Retrieve(haberURL, Request_GET, "" , "" , "" )

If Err.Number <> 0 Then

Response.Write "HATA!!!!!!! Lütfen Sayfayi Yeniden Yükleyiniz... "

Response.End

End If

lenstr=308+len(il)

haberim=Mid(haberim,9166,lenstr)

ds=InStr(1,haberim,"°C" )

sicaklik=Mid(haberim,ds-5,7)

sicaklik=Replace(sicaklik,">" ,"" )

ds=InStr(1,haberim,"alt" )

de=InStr(1,haberim,"°C" )

durum=Mid(haberim,ds+5,de-ds-15)

durum=Replace(durum,"""" ,"" )

if Cstr(durum)=Cstr("Az Bulutlu") then

resim="azbulutlu"

elseif Cstr(durum)=Cstr("Sağnak Yağışlı") then

resim="yagmurlu"

end if

%>

İl:	Sıcaklık:	Durum:
<%=il%>	<%=sicaklik%>	<%=durum%>