<%
if request.ServerVariables("QUERY_STRING")<>"" then
il=request("il")
if il="YOK" then
il="Ankara"
end if
else
il="ANKARA"
end if
%>
<body bgcolor="#7B8EA5" leftmargin="0" topmargin="0" >
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="161"> <
div align="center"><
font color="#000000" size="2" face="Arial">
<%
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.meteor.gov.tr/pages/"&il&".htm"
bilgicek = GETHTTP(URL)
cekilen=mid(bilgicek,1,1961)
bilgicek= Replace(bilgicek, cekilen, "", 1, -1, 0)
bitis=InStr(1,bilgicek,"</h1>" )
sehir=mid(bilgicek,1,bitis-1)
bilgicek= Replace(bilgicek, sehir, "", 1, -1, 0)
cekilen=mid(bilgicek,1,320+len(sehir))
bilgicek=Replace(bilgicek,cekilen,"", 1,-1,0)
bitis=Instr(1,bilgicek,".")
saat=mid(bilgicek,bitis-2,bitis+1)
bitis=Instr(1,bilgicek,"<")
tarih=mid(bilgicek,1,bitis-1)
bilgicek=Replace(bilgicek,tarih,"",1,-1,0)
bitis=InStr(1,bilgicek,"<br>" )
cekilen=mid(bilgicek,1,bitis+3)
bilgicek=replace(bilgicek,cekilen,"",1,-1,0)
bitis=Instr(1,bilgicek,"<")
drm=mid(bilgicek,1,bitis-1)
bilgicek=replace(bilgicek,drm,"",1,-1,0)
cekilen=mid(bilgicek,1,74)
bilgicek= Replace(bilgicek, cekilen, "", 1, -1, 0)
bitis=Instr(1,bilgicek,"<")
isi=mid(bilgicek,1,bitis-3)
bitis=Instr(1,bilgicek,"Nem")
bitis=bitis+25
cekilen=mid(bilgicek,1,bitis)
bilgicek=replace(bilgicek,cekilen,"",1,-1,0)
bitis=Instr(1,bilgicek,"<")
nem=mid(bilgicek,1,bitis-1)
bilgicek=replace(bilgicek,nem,"",1,-1,0)
%>
<
font color="#FFFFFF">Anlara Sıcaklık <%=isi%> °C</
font></
font></
div></td>
</tr>
</table>
</body>
Bu kod ile aslında meteorolojiden geliyor fakat hata çok alıyorum onun nedenini anlayamadım.
Senin kodunda gerekli olan yer sadece sicaklık yani text ankara önüne sıcaklık gelicek o kadar bana lazım olan yer, senin koduda ayıkladım ama çalışmadı
