<%response.contenttype = "application/xml"%> <% dim splitno,sitemapPageName,sitemapPageID, sitemapPageCode,level,Menu,divide dim sitemap_oRs,sitemap_oConn,sitemapItems,style style="sub" set sitemap_oConn = Server.CreateObject("ADODB.Connection") sitemap_oConn.Open Application("ConStr") set sitemap_oRs = Server.CreateObject("ADODB.Recordset") SQL = "SELECT pages.pageid, pages.pageName, pages.pageCode, pages.TemplateID, tables.display, tables.tablepageid, pages.URL, URLtarget, ISNULL(windowWidth, 600), ISNULL(windowHeight, 500) , path, sites.hasurl, sites.rootfolder, sites.siteurl " & _ "FROM " & TABLE_PREFIX & "pages pages " & _ "LEFT OUTER JOIN " & TABLE_PREFIX & "Sites sites " & _ "ON sites.siteid = pages.siteid " & _ "LEFT OUTER JOIN " & TABLE_PREFIX & "TableDetails tables " & _ "ON tables.pageid = pages.pageid AND tables.langid = pages.langid AND tables.siteid = pages.siteid " & _ "WHERE pages.Visible = 1 AND (pages.siteid = 5 ) and pages.langid=1 ORDER BY pages.pageCode" sitemap_oRs.Open SQL, sitemap_oConn, 3, 1, 1 if Not sitemap_oRs.EOF Then sitemapItems = sitemap_oRs.GetRows() else sitemapItems = Array(0,0) end if sitemap_oRs.Close prevLevel = 0 for Menu = 0 to Ubound(sitemapItems, 2) sitemapPageID = sitemapItems(0, Menu) sitemapPageName = sitemapItems(1, Menu) sitemapPageCode = sitemapItems(2, Menu) sitemapTemplateID = sitemapItems(3, Menu) sitemapDisplay = sitemapItems(4, Menu) sitemapTablePageID = sitemapItems(5, Menu) sitemapURL = RestoreEditorText(sitemapItems(6, Menu)) sitemapURLTarget = sitemapItems(7, Menu) sitemapwindowWidth = sitemapItems(8, Menu) sitemapwindowHeight = sitemapItems(9, Menu) level = cint(Ubound(Split(sitemapPageCode, "."))) + 1 sitemapPath = sitemapItems(10, Menu) sitemapHasUrl = sitemapItems(11, Menu) sitemapRootFolder = sitemapItems(12, Menu) sitemapSiteUrl = sitemapItems(13, Menu) if sitemapURL & "" = "" then if sitemapDisplay & "" = "" then URL1 = generateFriendlyPath(sitemapPath, sitemapHasUrl, sitemapRootFolder, sitemapSiteUrl, 1) URL2 = generateFriendlyPath(sitemapPath, sitemapHasUrl, sitemapRootFolder, sitemapSiteUrl, 2) else URL1 = generateFriendlyPath(sitemapPath, sitemapHasUrl, sitemapRootFolder, sitemapSiteUrl, 1)&"?tablepageid=" & MenuTablePageID URL2 = generateFriendlyPath(sitemapPath, sitemapHasUrl, sitemapRootFolder, sitemapSiteUrl, 2)&"?tablepageid=" & MenuTablePageID end if targetStr = "" else URL = sitemapURL if sitemapURLTarget & "" <> "" then targetStr = " target=""" & sitemapURLTarget & """" else targetStr = "" end if end if %> <% response.Write("" & URL1 & "" & vbcrlf) %> daily <% response.Write("" & URL2 & "" & vbcrlf) %> daily <% next %>