Welcome to onurercan's website!

hava durumu

<%
'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/" )
%>

face="Verdana">Aksaray
Ptesi <%=Ptesi %>	Sali <%=SalI %>	Çrs <%=crs %>

Date: 13 January 2007, Saturday
Comments (0) | Add Comment

Name:
E-Mail:
Your website (if you have):
Your Message:
Security Code:

hava durumu

Comments (0)

Add a new comment:

Latest Entries

Search