SUB MoveNext fso.OpenTextFile ForWriting lastmod description Hakkında;
SUB SITEMAP
randomize
xml = ”<?xml version=””1.0”” encoding=””UTF-8””?>” & chr(13)
xml = xml & ”<rss xmlns=””http://www.sitemaps.org/schemas/sitemap/0.9””>” & chr(13)
xml = xml & ”<channel>” & chr(13)
sql4= ”select * from uyg Where imle=1”
set rs5 = condb.Execute(sql4)
IF Not rs5.EOF THEN
DO WHILE NOT rs5.EOF
sayium = rnd
sayium = int(sayium * 5)
IF Cint(sayium) =0 THEN
sayium = 1
END IF
str = str & ”<item>” & chr(13)
str = str & ”<title>” & Cstr(rs5(”tur_adi”)) & ”</title>” & chr(13)
str = str & ”<link>http://www.onurunurlu.com/sayfalar/” & rs5(”url”) & ”</link>” & chr(13)
str = str & ”<description>” & rs5(”baslik”) & ”</description>” & chr(13)
str = str & ”<lastmod>” & rs5(”tarih”) & ”</lastmod>” & chr(13)
str = str & ”<changefreq>daily</changefreq>” & chr(13)
str = str & ”<priority>” & ”0.” & sayium & ”</priority>” & chr(13)
str = str & ”</item>” & chr(13)
rs5.MoveNext
LOOP
END IF
xmlson = xml & str
xmlson = xmlson & ”</channel>” & chr(13)
xmlson = xmlson & ”</rss>” & chr(13)
Const ForReading = 1, ForWriting = 2
Dim fso, f
Set fso = CreateObject(”Scripting.FileSystemObject”)
Dosya = Server.Mappath(”../sitemap.xml”)
Set f = fso.OpenTextFile(Dosya, ForWriting, True)
f.Write xmlson
END SUB
randomize
xml = ”<?xml version=””1.0”” encoding=””UTF-8””?>” & chr(13)
xml = xml & ”<rss xmlns=””http://www.sitemaps.org/schemas/sitemap/0.9””>” & chr(13)
xml = xml & ”<channel>” & chr(13)
sql4= ”select * from uyg Where imle=1”
set rs5 = condb.Execute(sql4)
IF Not rs5.EOF THEN
DO WHILE NOT rs5.EOF
sayium = rnd
sayium = int(sayium * 5)
IF Cint(sayium) =0 THEN
sayium = 1
END IF
str = str & ”<item>” & chr(13)
str = str & ”<title>” & Cstr(rs5(”tur_adi”)) & ”</title>” & chr(13)
str = str & ”<link>http://www.onurunurlu.com/sayfalar/” & rs5(”url”) & ”</link>” & chr(13)
str = str & ”<description>” & rs5(”baslik”) & ”</description>” & chr(13)
str = str & ”<lastmod>” & rs5(”tarih”) & ”</lastmod>” & chr(13)
str = str & ”<changefreq>daily</changefreq>” & chr(13)
str = str & ”<priority>” & ”0.” & sayium & ”</priority>” & chr(13)
str = str & ”</item>” & chr(13)
rs5.MoveNext
LOOP
END IF
xmlson = xml & str
xmlson = xmlson & ”</channel>” & chr(13)
xmlson = xmlson & ”</rss>” & chr(13)
Const ForReading = 1, ForWriting = 2
Dim fso, f
Set fso = CreateObject(”Scripting.FileSystemObject”)
Dosya = Server.Mappath(”../sitemap.xml”)
Set f = fso.OpenTextFile(Dosya, ForWriting, True)
f.Write xmlson
END SUB
