Güncel Mekan

işte kod


<%
if requestQueryString ("il")<>"" then
il=requestQueryString ("il")
else
il="BİLECİK"
end if
const Request_GET = 2

Dim haberURL, haberim, basliklar
haberURL = "http://meteotrnet/cgi-bin/wfapl?"&il
Set alma = CreateObject("SOFTWINGASPtear" )
On Error Resume Next
haberim = almaRetrieve(haberURL, Request_GET, "" , "" , "" )
If ErrNumber <0>

<TABLE>
<TR>
<TD><IMG></TD>
</TR>
<TR>
<TD>İl:</TD>
<TD>Sıcaklık:</TD>
<TD>Durum:</TD>
<TD> </TD>
</TR>
<TR>
<TD><il></TD>
<TD><sicaklik></TD>
<TD><durum></TD>
<TD><img></TD>
</TR>
</TABLE>
<TABLE>
<TR>
<td>
<font>Yurtiçi Merkezler :</font>
<select>
<option>Seçiniz</option>
<option>ADANA
<option>ADIYAMAN
<option>AFYON
<option>AGRI
<option>AKSARAY
<option>AMASYA
<option>ANKARA
<option>ANTALYA
<option>ARDAHAN
<option>ARTVIN
<option>AYDIN
<option>BALIKESIR
<option>BARTIN
<option>BATMAN
<option>BAYBURT
<option>BILECIK
<option>BINGOL
<option>BITLIS
<option>BOLU
<option>BOZCAADA
<option>BURDUR
<option>BURSA
<option>CANAKKALE
<option>CANKIRI
<option>CORUM
<option>DENIZLI
<option>DIYARBAKIR
<option>DUZCE
<option>EDIRNE
<option>ELAZIG
<option>ERZINCAN
<option>ERZURUM
<option>ESKISEHIR
<option>GAZIANTEP
<option>GIRESUN
<option>GOKCEADA
<option>GUMUSHANE
<option>HAKKARI
<option>HATAY
<option>IGDIR
<option>ISPARTA
<option>ISTANBUL
<option>IZMIR
<option>KMARAS
<option>KARABUK
<option>KARAMAN
<option>KARS
<option>KASTAMONU
<option>KAYSERI
<option>KILIS
<option>KIRIKKALE
<option>KIRKLARELI
<option>KIRSEHIR
<option>KOCAELI
<option>KONYA
<option>KUTAHYA
<option>MALATYA
<option>MANISA
<option>MARDIN
<option>MERSIN
<option>MUGLA
<option>MUS
<option>NEVSEHIR
<option>NIGDE
<option>ORDU
<option>OSMANIYE
<option>RIZE
<option>SAKARYA
<option>SAMSUN
<option>SANLIURFA
<option>SIIRT
<option>SINOP
<option>SIRNAK
<option>SIVAS
<option>TEKIRDAG
<option>TOKAT
<option>TRABZON
<option>TUNCELI
<option>USAK
<option>VAN
<option>YALOVA
<option>YOZGAT
<option>ZONGULDAK
</select>
</td>
</TR>
</TABLE>

''belki'' dünyasında
''keşke'' kokan havayı solurken
''iyi ki'' dediğim tek nefesimsin*
birtanem