fatih dursun - 5 - Asp ile il il hava durumu

Asp ile il il hava durumu

<%

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="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>