Programalama > ASP

<%  
'XMLHTTP Open   
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  
'XMLHTTP Close   
URL = "http://meteo.tr.net/cgi-bin/wfa.pl?Aksaray+ "   

bilgicek = GETHTTP(URL)  


a=InStr(1,bilgicek,"Pztesi" )  

Ptesi=Mid(bilgicek,a+10,79)  
ptesi=Replace(ptesi,"/images/" , "http://meteo.tr.net/images/" ) 

c=InStr(1,bilgicek,"Sali" )  

SalI=Mid(bilgicek,a+10,79)  
SalI=Replace(SalI,"/images/" , "http://meteo.tr.net/images/" ) 

c=InStr(1,bilgicek,"Çrs" )  

crs=Mid(bilgicek,a+10,79)  
crs=Replace(crs,"/images/" , "http://meteo.tr.net/images/" ) 
%> 
<div align="center"><center> 

<table border="0"> 
    <tr> 
        <td colspan="3"><p align="center"><font size="1" 
        face="Verdana"><strong>Aksaray</strong></font></p> 
        </td> 
    </tr> 
    <tr> 
        <td><p align="center"><font size="1" face="Verdana"><strong>Ptesi<br><%=Ptesi %> 
        </strong></font></p> 
        </td> 
        <td><p align="center"><font size="1" face="Verdana"><strong>Sali<br><%=SalI %> 
        </strong></font></p> 
        </td> 
        <td><p align="center"><font size="1" face="Verdana"><strong>Çrs<br><%=crs %> 
        </strong></font></p> 
        </td> 
    </tr> 
</table> 
</center></div>