<% 
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>&nbsp;</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="LOCATION" width=120 onChange="window.location=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>