Asptear ile havadurumu

<% 
adres = "http://www.meteor.gov.tr/pages/sonhavat.htm"   

On Error Resume Next 
Set Tear = Server.CreateObject("Softwing.AspTear" )  
strVeri = Tear.Retrieve(adres,2, "" ,"" ,"" ) 

If Err <> 0 Then 
Response.Write "Bir hata oluştu, açıklaması: " & Err.Description  
Response.End  
End If 

tahminler = InStr(1,strVeri,"SICAKLIKLARI DA SOYLE OLACAK" )  
strHavadurumu = Mid(strVeri,tahminler+38,150) 
%>  

<font size="2" face="Verdana"><b><%=Date() %></b> tarihli Hava Tahmini şöyledir: <p>  
<b><%=strHavadurumu %></b> </font> 
</body>  
</html>