Hazır Script – Hazır Kod

Asp ile il il hava durumu

Asp ile il il hava durumu

codeDivStart()

<%

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>