![]() |
![]() |
#1 |
Administrator
![]() Üyelik Tarihi: Aug 2005
Mesajlar: 8,106
Teşekkür Etme: 20 Thanked 155 Times in 28 Posts
Üye No: 1
İtibar Gücü: 70000
Rep Puanı : 434913
Rep Derecesi :
![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() Cinsiyet :
Ünvan : Admin
|
![]() <%
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="********" width=120 onChange="****************=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> |
![]() |
![]() |
![]() ![]() |
Konuyu Görüntüleyen Aktif Kullanıcılar: 1 (0 üye ve 1 misafir) | |
|
|
![]() |
||||
Konu | Konuyu Başlatan | Forum | Cevaplar | Son Mesaj |
Yurtta hava durumu 17 Haziran | GooD aNd EvıL | Eskiler (Arşiv) | 0 | 06-17-2008 11:28 AM |
Yurtta hava durumu 12 Mayıs | GooD aNd EvıL | Eskiler (Arşiv) | 0 | 05-12-2008 12:45 PM |
Yurtta hava durumu 11 Mayıs | GooD aNd EvıL | Eskiler (Arşiv) | 0 | 05-11-2008 01:09 PM |
Yurtta hava durumu 7 Şubat | GooD aNd EvıL | Eskiler (Arşiv) | 0 | 02-07-2008 11:14 AM |
Yurtta hava durumu 26 Ocak | GooD aNd EvıL | Eskiler (Arşiv) | 0 | 01-26-2008 01:18 PM |