<% id=request("id") thisid=request("thisid") typep=request("typep") ''pagename=request("pagename") if thisid = "" then thisid = 0 if cint(id) <> 0 then set pagesInfo=objConn.execute("select * from pages where id="&id&" order by priority ") else set pagesInfo=objConn.execute("select * from pages order by priority ") end if if not pagesInfo.eof then nname=pagesInfo("name") largedescription=pagesInfo("largedescription") name1=pagesInfo("headname") metadesc=pagesInfo("metadesc") keyword=pagesInfo("keyword") smalldescription=pagesInfo("smalldescription") slideId=pagesInfo("slideId") Notes=pagesInfo("Notes") end if %> Site Map of GYPSUM Group

Sitemap

<% set pages=objConn.execute("select * from pages where parentid = 0 and id not in (98) order by name ") while not pages.eof set subpages=objConn.execute("select * from pages where parentid = "&pages("id")&" order by priority ") while not subpages.eof set SubPages1=objConn.execute("select * from pages where parentid="&subpages("id")&" order by priority ") if lcase(subpages("name")) = lcase("Events") or lcase(subpages("name")) =lcase("Consumer Brands") then if not SubPages1.eof then LinkForPage=replace(subpages("name")," ","-")&"--"&replace(SubPages1("name")," ","-") end if else LinkForPage=replace(subpages("name")," ","-") end if %> .html" <%= TargetPage %>><%= subpages("name") %> 

<% subpages1.movenext wend end if %> <% subpages.movenext wend <% pages.movenext wend %>
Latest News

Become a Fan of Gypsum Group on Facebook