Junior Onur UNURLU

SUB MOVENEXT FSO.OPENTEXTFILE FORWRITING LASTMOD DESCRIPTION

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 
Facebook

   SON EKLENEN 6 LİNK