ANA SAYFA | HAKKIMIZDA | FORUM | HABER | MAKALE | DERS | ÖRNEK | BİLGİ VERİTABANI | TERİMLER SÖZLÜĞÜ | REKLAM | İLETİŞİM

  BilisimAkademi.NET Forum
+ KATEGORİLER
 » FORUM
 » BİLGİ VERİTABANI
 » TERİMLER SÖZLÜĞÜ
 + Download
 + Ziyaretçi Defteri
 + Yazarlar
 + Hata Bildir
 + Tavsiye Edin
 + Bize Ulaşın
Destekleyenler
Ayrıntı Bilgisayar
Deha Fidancılık, izmir fidan
Tekno Çarsı
Decoolation
Megaron Yapı

 

 
 // Ana Sayfa > Web Programlama > Asp > İl İl Hava Durumu
 İl İl Hava Durumu
 ASP sayfalarınızda kullanabileceğiniz il il hava durumunu yayınlayabileceğiniz bir script

<%
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.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>
   
Yazan: aristor 

Tarih: 06.01.2006 09:19:50 Okunma: 1430  Oy: 0,1

Yazıcı Dostu



Bu içeriğe oy verin
1 2 3 4 5 6 7 8 9 10

 YORUMLAR

Yorum Yaz

 
Eklenmiş yorum bulunuyor.
 

FORUM | MAKALE | DERS | ÖRNEK | BİLG? VERİTABANI | KULLANMA ŞARTLARI | GİZLİLİK

BilisimAkademi.NET ?2004-2008

Site en iyi 1024x768 çözünürlükte IE 5+ görüntülenmektedir.

Tasarım&Programlama: Hüseyin YILDIRIM{AriSToR}

cheap wholesale nba jerseys wholesale jerseys free shipping cheap mlb jerseys wholesale fake oakley sunglasses cheap nike nfl jerseys cheap nfl jerseys wholesale nba jerseys cheap mlb jerseys wholesale mlb jerseys cheap fake oakleys cheap ghd cheap nfl jerseys china cheap mlb jerseys free shipping fake oakleys for sale wholesale jerseys china cheap nfl jerseys wholesale cheap jerseys christian louboutin outlet tiffany outlet karen millen outlet cheap authentic nfl jerseys cheap nfl jerseys fake oakleys for sale cheap nhl jerseys from china cheap nfl jerseys china