[absconder]

acil olduğu için; geliştirilebilir;

not : Kamusal İnternet Kullanımı bakmanı tavsiye ederim...

<meta http-equiv="Content-Type" content="text/HTML; charset=windows-1254">
<% 
Class H 
	dim ilAdi, sicaklikAlt, sicaklikUst, resim
end Class

dim iller() 
for i=1 to 3 
	redim preserve iller(i) : set iller(i) = new H 
next

iller(1).ilAdi = "Ankara" :  iller(2).ilAdi = "İstanbul" : iller(3).ilAdi = "İzmir"

private Function GETHTTP(adres) 
	Set StrHTTP = server.CreateObject("Microsoft.XMLHTTP" ) 
	StrHTTP.Open "GET" , adres, false 
	StrHTTP.sEnd 
	GETHTTP = StrHTTP.Responsetext 
	Set StrHTTP = Nothing 
End Function 

URL = "http://www.tr.net" 
strHTML = GETHTTP(URL) 

If Err.Number <> 0 Then 
	Response.Write "Bağlantı Başarısız... " 
	Response.End 
End If 

function havaDurumu(il)
	ilNo = ilGetir(il)
	x = split(strHTML,"<table border=0 cellpadding=0 cellcpacing=0>")
	y = split(x(1),"</table>")
	z = split(y(0),chr(10))
	q = split(temizle(replace(z(ilNo),"""","")),",")
	w = split(q(3)," ")
	q(2) = left(q(2),len(q(2)) - 1)
	s = split(q(2),"/")
	set havadurumu = new H
	havaDurumu.ilAdi = il
	havaDurumu.sicaklikAlt = s(0)
	havaDurumu.sicaklikUst = s(1)
	havaDurumu.resim = w(0)
end function

function temizle(args)
	tmp = replace(args,"<tr><td style=font-size:10px;font-weight:bold;font-family:verdana;>",",")
	tmp = replace(tmp,"</td><td style=font-size:10px;font-weight:bold;font-family:verdana; align=center>",",")
	tmp = replace(tmp,"C</td><td><img src=",",")
	temizle = tmp
end function

function ilGetir(args)
	tmp = 0
	for i= 1 to 3
		if args = iller(i).ilAdi then tmp = i
	next
	ilGetir = tmp
end function

response.write "--- Örnek Gösterimler ---<br>"
response.write havaDurumu("Ankara").ilAdi & "<br>" & havaDurumu("İstanbul").sicaklikAlt & "<br>" & havaDurumu("İzmir").sicaklikUst & "<br>" &  havaDurumu("İzmir").resim

response.write "<br><br><br>herhangi bir il için<br><br>"
response.write "<table><tr><td>" & havaDurumu("Ankara").ilAdi & " ilimizde beklenen sıcaklıklar :</td><td>en düşük</td><td>" & havaDurumu("Ankara").sicaklikAlt  & "</td><td><td>enyüksek</td><td bgcolor=red>" & havaDurumu("Ankara").sicaklikUst & "</td><td><img src="& havaDurumu("Ankara").resim &"></td></tr></table>"
%>