<%
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
%>
<TABLE WIDTH=50% ALIGN=center BORDER=1 CELLSPACING=1 CELLPADDING=1>
<TR align=center>
<TD colspan=4><IMG SRC="havadurumu.jpg" width=600 height=30></TD>
</TR>
<TR align=center>
<TD>İl:</TD>
<TD>Sıcaklık:</TD>
<TD>Durum:</TD>
<TD> </TD>
</TR>
<TR align=center>
<TD><%=il%></TD>
<TD><%=sicaklik%></TD>
<TD><%=durum%></TD>
<TD><img SRC="image/<%=resim%>.gif"></TD>
</TR>
</TABLE>
<TABLE WIDTH=20% ALIGN=center BORDER=1 CELLSPACING=1 CELLPADDING=1>
<TR>
<td align=left bgcolor=ffffff nowrap>
<font face=tahoma size=1><b>Yurtiçi Merkezler :</b></font>
<select style="font-size:10px;" name="********" width=120 onChange="****************=this.options[this.selectedIndex].value; return true">
<option value=havadurumu.asp?il=ANKARA>Seçiniz</option>
<option value=havadurumu.asp?il=ADANA>ADANA
<option value=havadurumu.asp?il=ADIYAMAN>ADIYAMAN
<option value=havadurumu.asp?il=AFYON>AFYON
<option value=havadurumu.asp?il=AGRI>AGRI
<option value=havadurumu.asp?il=AKSARAY>AKSARAY
<option value=havadurumu.asp?il=AMASYA>AMASYA
<option value=havadurumu.asp?il=ANKARA>ANKARA
<option value=havadurumu.asp?il=ANTALYA>ANTALYA
<option value=havadurumu.asp?il=ARDAHAN>ARDAHAN
<option value=havadurumu.asp?il=ARTVIN>ARTVIN
<option value=havadurumu.asp?il=AYDIN>AYDIN
<option value=havadurumu.asp?il=BALIKESIR>BALIKESIR
<option value=havadurumu.asp?il=BARTIN>BARTIN
<option value=havadurumu.asp?il=BATMAN>BATMAN
<option value=havadurumu.asp?il=BAYBURT>BAYBURT
<option value=havadurumu.asp?il=BILECIK>BILECIK
<option value=havadurumu.asp?il=BINGOL>BINGOL
<option value=havadurumu.asp?il=BITLIS>BITLIS
<option value=havadurumu.asp?il=BOLU>BOLU
<option value=havadurumu.asp?il=BOZCAADA>BOZCAADA
<option value=havadurumu.asp?il=BURDUR>BURDUR
<option value=havadurumu.asp?il=BURSA>BURSA
<option value=havadurumu.asp?il=CANAKKALE>CANAKKALE
<option value=havadurumu.asp?il=CANKIRI>CANKIRI
<option value=havadurumu.asp?il=CORUM>CORUM
<option value=havadurumu.asp?il=DENIZLI>DENIZLI
<option value=havadurumu.asp?il=DIYARBAKIR>DIYARBAKIR
<option value=havadurumu.asp?il=DUZCE>DUZCE
<option value=havadurumu.asp?il=EDIRNE>EDIRNE
<option value=havadurumu.asp?il=ELAZIG>ELAZIG
<option value=havadurumu.asp?il=ERZINCAN>ERZINCAN
<option value=havadurumu.asp?il=ERZURUM>ERZURUM
<option value=havadurumu.asp?il=ESKISEHIR>ESKISEHIR
<option value=havadurumu.asp?il=GAZIANTEP>GAZIANTEP
<option value=havadurumu.asp?il=GIRESUN>GIRESUN
<option value=havadurumu.asp?il=GOKCEADA>GOKCEADA
<option value=havadurumu.asp?il=GUMUSHANE>GUMUSHANE
<option value=havadurumu.asp?il=HAKKARI>HAKKARI
<option value=havadurumu.asp?il=HATAY>HATAY
<option value=havadurumu.asp?il=IGDIR>IGDIR
<option value=havadurumu.asp?il=ISPARTA>ISPARTA
<option value=havadurumu.asp?il=ISTANBUL>ISTANBUL
<option value=havadurumu.asp?il=IZMIR>IZMIR
<option value=havadurumu.asp?il=K.MARAS>K.MARAS
<option value=havadurumu.asp?il=KARABUK>KARABUK
<option value=havadurumu.asp?il=KARAMAN>KARAMAN
<option value=havadurumu.asp?il=KARS>KARS
<option value=havadurumu.asp?il=KASTAMONU>KASTAMONU
<option value=havadurumu.asp?il=KAYSERI>KAYSERI
<option value=havadurumu.asp?il=KILIS>KILIS
<option value=havadurumu.asp?il=KIRIKKALE>KIRIKKALE
<option value=havadurumu.asp?il=KIRKLARELI>KIRKLARELI
<option value=havadurumu.asp?il=KIRSEHIR>KIRSEHIR
<option value=havadurumu.asp?il=KOCAELI>KOCAELI
<option value=havadurumu.asp?il=KONYA>KONYA
<option value=havadurumu.asp?il=KUTAHYA>KUTAHYA
<option value=havadurumu.asp?il=MALATYA>MALATYA
<option value=havadurumu.asp?il=MANISA>MANISA
<option value=havadurumu.asp?il=MARDIN>MARDIN
<option value=havadurumu.asp?il=MERSIN>MERSIN
<option value=havadurumu.asp?il=MUGLA>MUGLA
<option value=havadurumu.asp?il=MUS>MUS
<option value=havadurumu.asp?il=NEVSEHIR>NEVSEHIR
<option value=havadurumu.asp?il=NIGDE>NIGDE
<option value=havadurumu.asp?il=ORDU>ORDU
<option value=havadurumu.asp?il=OSMANIYE>OSMANIYE
<option value=havadurumu.asp?il=RIZE>RIZE
<option value=havadurumu.asp?il=SAKARYA>SAKARYA
<option value=havadurumu.asp?il=SAMSUN>SAMSUN
<option value=havadurumu.asp?il=SANLIURFA>SANLIURFA
<option value=havadurumu.asp?il=SIIRT>SIIRT
<option value=havadurumu.asp?il=SINOP>SINOP
<option value=havadurumu.asp?il=SIRNAK>SIRNAK
<option value=havadurumu.asp?il=SIVAS>SIVAS
<option value=havadurumu.asp?il=TEKIRDAG>TEKIRDAG
<option value=havadurumu.asp?il=TOKAT>TOKAT
<option value=havadurumu.asp?il=TRABZON>TRABZON
<option value=havadurumu.asp?il=TUNCELI>TUNCELI
<option value=havadurumu.asp?il=USAK>USAK
<option value=havadurumu.asp?il=VAN>VAN
<option value=havadurumu.asp?il=YALOVA>YALOVA
<option value=havadurumu.asp?il=YOZGAT>YOZGAT
<option value=havadurumu.asp?il=ZONGULDAK>ZONGULDAK
</select>
</td>
</TR>
</TABLE>
Alıntı ile Cevapla
