Meteroloji Genel Müdürlüğünden Güncel Olarak Hava Durumunu sitenizde Göstermek içn;
<%
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 SU SEKİLDE" )
strHavadurumu = Mid(strVeri,tahminler+38,150)
%>

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