asp ile hava durumu

<%
if request.QueryString ("il")<>"" then
il=request.QueryString ("il")
else
il="BILECIK"
end if
const Request_GET = 2

Dim haberURL, haberim, basliklar
haberURL = "Üye olmadığınızdan ötürü linkler gözükmüyor, değilmi ?
Linkleri görmek ve bu sitede anti-sömürge sistemi olduğunu bilip , banlanmıcam diyorsanız Kayıt Olunuz yada bizdenseniz Giriş Yapınız

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("Sagnak Yagisli") 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>Il:</TD>
<TD>Sicaklik:</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>
<selectstyle="font-size:10px;" name="LOCATION" width=120onChange="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>

Konu Bilgileri			Kısayollar

	Konu Başlığı asp ile hava durumu	Cevaplar 2	Sonraki Sonraki Konu
	Görüntüleyenler0 Üye ve 1 Ziyaretçi konuyu incelemekte.	Görüntülenme 396	Önceki Önceki Konu

Benzer Konular
	Konu Başlığı	Başlatan	Yanıtlar	Görüntülenme	Son Mesaj
	Sabit diskinizdeki doluluk durumu Çeşitli basit programlar	berkun54	3	131	Mart 08, 2007, 10:12:14 ÖÖ Gönderen: ferits
	işte buda hava durumu sunarkeneki gülme krizi:) Komedi	BeyazGül	2	117	Eylül 17, 2007, 11:23:42 ÖÖ Gönderen: mobydick
	MSN Durumu Avatarları 2 MSN-Hotmail ve Yahoo Hakkında	edriye	1	288	Aralık 15, 2007, 07:39:32 ÖS Gönderen: haluk42
	Biyogaz Nedir? Biyogazin Elde Yöntemleri, Özellikleri, Ülkemizdeki Durumu Kimya	BeyazGül	1	262	Mart 08, 2008, 04:49:31 ÖÖ Gönderen: Please wait...
	maç durumu Fıkralar	SЄЯCîИHO	0	68	Mayıs 20, 2008, 12:01:10 ÖS Gönderen: SЄЯCîИHO