<% '---------- notes - START ---------- 'To change IIS so it executes .xml as a .asp page, see the help file at: '/admin/help/other-extensions.asp 'sitemaps protocol 'http://www.sitemaps.org/protocol.html '---------- notes - END ---------- '======== apply for directories 'dir' - START ======== If strzSiteType = "dir" Then '-------- main site pages - START -------- strSQL = "SELECT * FROM sa_SiteMaps WHERE zSiteID = 'dir' ORDER BY SMSequence" Set objRS = Server.CreateObject("ADODB.Recordset") objRS.Open strSQL, objConn, adOpenKeySet, adLockOptimistic Do While Not objRS.EOF Response.Write Chr(32) & "" & Chr(13) Response.Write Chr(32) & Chr(32) & "" & Replace(objRS("SMLoc"), "strzSiteURL", strzSiteURL) & "" & Chr(13) Response.Write Chr(32) & Chr(32) & "" & FormatNumber(objRS("SMPriority"), 1) & "" & Chr(13) Response.Write Chr(32) & Chr(32) & "" & objRS("SMChangeFreq") & "" & Chr(13) Response.Write Chr(32) & "" & Chr(13) objRS.MoveNext Loop objRS.Close Set objRS = Nothing '-------- main site pages - END -------- '-------- category pages - START -------- strSQL = "SELECT CatDomain FROM dir_Cats WHERE (EngineSubject = '" & strzSiteSubject & "') AND (RIGHT(CatID, 8) <> '00000000')" Set objRS = Server.CreateObject("ADODB.Recordset") objRS.Open strSQL, objConn, adOpenKeySet, adLockOptimistic Do While Not objRS.EOF Response.Write Chr(32) & "" & Chr(13) Response.Write Chr(32) & Chr(32) & "http://www." & strzSiteURL & "/dir/" & objRS("CatDomain") & "" & Chr(13) Response.Write Chr(32) & Chr(32) & "0.5" & Chr(13) Response.Write Chr(32) & Chr(32) & "daily" & Chr(13) Response.Write Chr(32) & "" & Chr(13) objRS.MoveNext Loop objRS.Close Set objRS = Nothing '-------- category pages - END -------- End If '======== apply for directories 'dir' - START ======== '======== apply for specific sites - START ======== strSQL = "SELECT * FROM sa_SiteMaps WHERE zSiteID = '" & strzSiteID & "' ORDER BY SMSequence" Set objRS = Server.CreateObject("ADODB.Recordset") objRS.Open strSQL, objConn, adOpenKeySet, adLockOptimistic Do While Not objRS.EOF Response.Write Chr(32) & "" & Chr(13) Response.Write Chr(32) & Chr(32) & "" & objRS("SMLoc") & "" & Chr(13) Response.Write Chr(32) & Chr(32) & "" & FormatNumber(objRS("SMPriority"), 1) & "" & Chr(13) Response.Write Chr(32) & Chr(32) & "" & objRS("SMChangeFreq") & "" & Chr(13) Response.Write Chr(32) & "" & Chr(13) objRS.MoveNext Loop objRS.Close Set objRS = Nothing '======== apply for specific sites - END ======== '======== apply for backdoors - START ======== If strzSiteID = "backdoors" Then strSQL = "SELECT PlaySite, GameCat, GameName, GameNameTrim FROM bd_GameList ORDER BY PlaySite, GameCatsSeq, GameName " Set objRS = Server.CreateObject("ADODB.Recordset") objRS.Open strSQL, objConn, adOpenKeySet, adLockOptimistic Do While Not objRS.EOF Response.Write Chr(32) & "" & Chr(13) Response.Write Chr(32) & Chr(32) & "http://www." & strzSiteURL & "/" & LCase(objRS("PlaySite")) & "/" & LCase(objRS("GameNameTrim")) & "/" & Chr(13) Response.Write Chr(32) & Chr(32) & "0.5" & Chr(13) Response.Write Chr(32) & Chr(32) & "daily" & Chr(13) Response.Write Chr(32) & "" & Chr(13) objRS.MoveNext Loop objRS.Close Set objRS = Nothing End If '======== apply for backdoors - START ======== '======== apply for oxymoron - START ======== If strzSiteID = "oxymoron" Then strSQL = "SELECT * FROM ref_Oxymorons ORDER BY OxyID" Set objRS = Server.CreateObject("ADODB.Recordset") objRS.Open strSQL, objConn, adOpenKeySet, adLockOptimistic Do While Not objRS.EOF Response.Write Chr(32) & "" & Chr(13) Response.Write Chr(32) & Chr(32) & "http://www." & strzSiteURL & "/oxymorons/forum.asp?oxyid=" & objRS("OxyID") & "" & Chr(13) Response.Write Chr(32) & Chr(32) & "0.3" & Chr(13) Response.Write Chr(32) & Chr(32) & "weekly" & Chr(13) Response.Write Chr(32) & "" & Chr(13) objRS.MoveNext Loop objRS.Close Set objRS = Nothing End If '======== apply for oxymoron - START ======== '======== apply for saint charbel - START ======== If (strzSiteID = "stcharbel") Then Response.Write Chr(32) & "" & Chr(13) Response.Write Chr(32) & Chr(32) & "http://www." & strzSiteURL & "/" & Chr(13) Response.Write Chr(32) & Chr(32) & "1.0" & Chr(13) Response.Write Chr(32) & Chr(32) & "Daily" & Chr(13) Response.Write Chr(32) & "" & Chr(13) Response.Write Chr(32) & "" & Chr(13) Response.Write Chr(32) & Chr(32) & "http://www." & strzSiteURL & "/saint/charbel/life/" & Chr(13) Response.Write Chr(32) & Chr(32) & "0.6" & Chr(13) Response.Write Chr(32) & Chr(32) & "Weekly" & Chr(13) Response.Write Chr(32) & "" & Chr(13) Response.Write Chr(32) & "" & Chr(13) Response.Write Chr(32) & Chr(32) & "http://www." & strzSiteURL & "/saint/charbel/life/3lights.asp" & Chr(13) Response.Write Chr(32) & Chr(32) & "0.9" & Chr(13) Response.Write Chr(32) & Chr(32) & "Daily" & Chr(13) Response.Write Chr(32) & "" & Chr(13) Response.Write Chr(32) & "" & Chr(13) Response.Write Chr(32) & Chr(32) & "http://www." & strzSiteURL & "/saint/charbel/life/call_of_desert.asp" & Chr(13) Response.Write Chr(32) & Chr(32) & "0.9" & Chr(13) Response.Write Chr(32) & Chr(32) & "Daily" & Chr(13) Response.Write Chr(32) & "" & Chr(13) Response.Write Chr(32) & "" & Chr(13) Response.Write Chr(32) & Chr(32) & "http://www." & strzSiteURL & "/saint/charbel/miracles/" & Chr(13) Response.Write Chr(32) & Chr(32) & "0.9" & Chr(13) Response.Write Chr(32) & Chr(32) & "Daily" & Chr(13) Response.Write Chr(32) & "" & Chr(13) Response.Write Chr(32) & "" & Chr(13) Response.Write Chr(32) & Chr(32) & "http://www." & strzSiteURL & "/saint/charbel/photos/" & Chr(13) Response.Write Chr(32) & Chr(32) & "0.8" & Chr(13) Response.Write Chr(32) & Chr(32) & "Weekly" & Chr(13) Response.Write Chr(32) & "" & Chr(13) Response.Write Chr(32) & "" & Chr(13) Response.Write Chr(32) & Chr(32) & "http://www." & strzSiteURL & "/saint/charbel/links/" & Chr(13) Response.Write Chr(32) & Chr(32) & "0.5" & Chr(13) Response.Write Chr(32) & Chr(32) & "Weekly" & Chr(13) Response.Write Chr(32) & "" & Chr(13) End If '======== apply for saint charbel - END ======== '======== apply for saint hardini - START ======== If (strzSiteID = "sthardini") Then Response.Write Chr(32) & "" & Chr(13) Response.Write Chr(32) & Chr(32) & "http://www." & strzSiteURL & "/" & Chr(13) Response.Write Chr(32) & Chr(32) & "1.0" & Chr(13) Response.Write Chr(32) & Chr(32) & "Daily" & Chr(13) Response.Write Chr(32) & "" & Chr(13) Response.Write Chr(32) & "" & Chr(13) Response.Write Chr(32) & Chr(32) & "http://www." & strzSiteURL & "/saint/hardini/life/" & Chr(13) Response.Write Chr(32) & Chr(32) & "0.9" & Chr(13) Response.Write Chr(32) & Chr(32) & "Weekly" & Chr(13) Response.Write Chr(32) & "" & Chr(13) Response.Write Chr(32) & "" & Chr(13) Response.Write Chr(32) & Chr(32) & "http://www." & strzSiteURL & "/saint/hardini/photos/" & Chr(13) Response.Write Chr(32) & Chr(32) & "0.8" & Chr(13) Response.Write Chr(32) & Chr(32) & "Weekly" & Chr(13) Response.Write Chr(32) & "" & Chr(13) Response.Write Chr(32) & "" & Chr(13) Response.Write Chr(32) & Chr(32) & "http://www." & strzSiteURL & "/saint/hardini/links/" & Chr(13) Response.Write Chr(32) & Chr(32) & "0.5" & Chr(13) Response.Write Chr(32) & Chr(32) & "Weekly" & Chr(13) Response.Write Chr(32) & "" & Chr(13) End If '======== apply for saint hardini - END ======== '======== apply for saint maroun - START ======== If (strzSiteID = "stmaroun") Then Response.Write Chr(32) & "" & Chr(13) Response.Write Chr(32) & Chr(32) & "http://www." & strzSiteURL & "/" & Chr(13) Response.Write Chr(32) & Chr(32) & "1.0" & Chr(13) Response.Write Chr(32) & Chr(32) & "Daily" & Chr(13) Response.Write Chr(32) & "" & Chr(13) Response.Write Chr(32) & "" & Chr(13) Response.Write Chr(32) & Chr(32) & "http://www." & strzSiteURL & "/saint/maroun/life/" & Chr(13) Response.Write Chr(32) & Chr(32) & "0.9" & Chr(13) Response.Write Chr(32) & Chr(32) & "Weekly" & Chr(13) Response.Write Chr(32) & "" & Chr(13) Response.Write Chr(32) & "" & Chr(13) Response.Write Chr(32) & Chr(32) & "http://www." & strzSiteURL & "/saint/maroun/photos/" & Chr(13) Response.Write Chr(32) & Chr(32) & "0.8" & Chr(13) Response.Write Chr(32) & Chr(32) & "Weekly" & Chr(13) Response.Write Chr(32) & "" & Chr(13) Response.Write Chr(32) & "" & Chr(13) Response.Write Chr(32) & Chr(32) & "http://www." & strzSiteURL & "/saint/maroun/links/" & Chr(13) Response.Write Chr(32) & Chr(32) & "0.5" & Chr(13) Response.Write Chr(32) & Chr(32) & "Weekly" & Chr(13) Response.Write Chr(32) & "" & Chr(13) End If '======== apply for saint maroun - END ======== '======== apply for saint rafca - START ======== If (strzSiteID = "strafca") Then Response.Write Chr(32) & "" & Chr(13) Response.Write Chr(32) & Chr(32) & "http://www." & strzSiteURL & "/" & Chr(13) Response.Write Chr(32) & Chr(32) & "1.0" & Chr(13) Response.Write Chr(32) & Chr(32) & "Daily" & Chr(13) Response.Write Chr(32) & "" & Chr(13) Response.Write Chr(32) & "" & Chr(13) Response.Write Chr(32) & Chr(32) & "http://www." & strzSiteURL & "/saint/rafca/life/" & Chr(13) Response.Write Chr(32) & Chr(32) & "0.9" & Chr(13) Response.Write Chr(32) & Chr(32) & "Weekly" & Chr(13) Response.Write Chr(32) & "" & Chr(13) Response.Write Chr(32) & "" & Chr(13) Response.Write Chr(32) & Chr(32) & "http://www." & strzSiteURL & "/saint/rafca/photos/" & Chr(13) Response.Write Chr(32) & Chr(32) & "0.8" & Chr(13) Response.Write Chr(32) & Chr(32) & "Weekly" & Chr(13) Response.Write Chr(32) & "" & Chr(13) Response.Write Chr(32) & "" & Chr(13) Response.Write Chr(32) & Chr(32) & "http://www." & strzSiteURL & "/saint/rafca/links/" & Chr(13) Response.Write Chr(32) & Chr(32) & "0.5" & Chr(13) Response.Write Chr(32) & Chr(32) & "Weekly" & Chr(13) Response.Write Chr(32) & "" & Chr(13) End If '======== apply for saint rafca - END ======== objConn.Close Set objConn = Nothing %>