Yazdırılabilir Sayfa

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