<%
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>