Programalama > ASP

Etiketler: asp, ile, hava

Ort. 0
Puan ver:
<% 
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>


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2024 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.