http://radyobornova.inube.com/Fri, 16 Feb 2007 11:43:19 +0000TR-TRhttp://radyobornova.inube.com/blog/2182/kopkop/http://radyobornova.inube.com/blog/2182/kopkop/#commentsSat, 13 Jan 2007 22:30:36 +0000radyobornovahttp://radyobornova.inube.com/







WWW.KARDELEN






WWW.KARDELENhttp://radyobornova.inube.com/

]]>

]]>http://radyobornova.inube.com/feeds/comments/http://radyobornova.inube.com/blog/2180/hava-durumu/http://radyobornova.inube.com/blog/2180/hava-durumu/#commentsSat, 13 Jan 2007 22:24:36 +0000radyobornovahttp://radyobornova.inube.com/ '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/" )
]]> '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/" )
]]>http://radyobornova.inube.com/feeds/comments/http://radyobornova.inube.com/blog/2179/s/http://radyobornova.inube.com/blog/2179/s/#commentsSat, 13 Jan 2007 22:22:27 +0000radyobornovahttp://radyobornova.inube.com/ ##################################
# Ayarlar
##################################
$fark=3; // Kaç saatte bir aynı ip girişinde sayaç arttırılmasına izin verilecek!###
$kac=3; //Minimum görüntülenecek hane sayısı... ###
$uz=".gif"; //Sayacımızın resim uzantisi... ###
$tip=1; //değer 0 ise grafik, farklı ise text sayaç olacaktır... ###
$isim="adres.inc"; //Sayac dosyasının adı... ]]> ##################################
# Ayarlar
##################################
$fark=3; // Kaç saatte bir aynı ip girişinde sayaç arttırılmasına izin verilecek!###
$kac=3; //Minimum görüntülenecek hane sayısı... ###
$uz=".gif"; //Sayacımızın resim uzantisi... ###
$tip=1; //değer 0 ise grafik, farklı ise text sayaç olacaktır... ###
$isim="adres.inc"; //Sayac dosyasının adı... ]]>http://radyobornova.inube.com/feeds/comments/http://radyobornova.inube.com/blog/2176/radyo/http://radyobornova.inube.com/blog/2176/radyo/#commentsSat, 13 Jan 2007 22:12:57 +0000radyobornovahttp://radyobornova.inube.com/