<% If Len(sPCMID) > 0 Then langMgr.GetPCMContent sPCMID, iDefLangID, sPageTitle, sPageKeywords, sPageDescription, sPageContent, sPageHeading End If ''''''''' This code is fot the extrapage module '''''''''''''''''''''' 'If Len(Request("page")) > 0 And sCurrentPage = "extrapage" Then ' Set rsMeta = conDB.Execute("SELECT Title, Description, Keywords, Heading FROM ExtraPages WHERE Name='" & Request("page") & "'") ' If Not rsMeta.EOF Then ' sPageTitle = rsMeta("Title") ' sPageDescription = rsMeta("Description") ' sPageKeywords = rsMeta("Keywords") ' sPageHeading = rsMeta("Heading") ' End If 'End If ''''''''' End of the extra page module code ''''''''''''''''''''''''' Response.Expires = -1 Response.AddHeader "Pragma", "no-cache" Response.AddHeader "cache-control", "no-store" If Len(sPageTitle) = 0 Then sPageTitle = gsPageTitle If Len(sPageKeywords) = 0 Then sPageKeywords = gsPageKeywords If Len(sPageDescription) = 0 Then sPageDescription = gsPageDescription Function IIf(cond, valTrue, valFalse) If cond Then IIf = valTrue Else IIf = valFalse End Function sScriptName = Mid(Request.ServerVariables("SCRIPT_NAME"), InStrRev(Request.ServerVariables("SCRIPT_NAME"), "/")+1) Dim dicMenu Set dicMenu = CreateObject("Scripting.Dictionary") Set rsMenu = conDB.Execute("SELECT ButtonID, MenuLabel, ButtonType, ExtraPage, URL FROM MenuButtons WHERE LangID=" & iDefLangID & " ORDER BY ButtonPos, MenuLabel") If Not IsRSEmpty(rsMenu) Then bFirstButton = True While Not rsMenu.EOF Select Case rsMenu("ButtonType") Case 1 sButtonURL= "default.asp" Case 2 sButtonURL= "aboutus.asp" Case 3 sButtonURL= "services.asp" Case 4 sButtonURL= "products.asp" Case 5 sButtonURL= "contactus.asp" Case 6 sButtonURL= "news.asp" Case 7 sButtonURL= "faq.asp" Case 8 sButtonURL= "ourpeople.asp" Case 9 sButtonURL= "links.asp" Case 10 sButtonURL= "intranetlogin.asp" Case 11 sButtonURL= "sitemap.asp" 'Case 12 ' sButtonURL= "page.asp?page=" & rsMenu("ExtraPage") Case 13 sButtonURL= rs("URL") end select sMenuLabel = rsMenu("MenuLabel") dicMenu.Add sMenuLabel, sButtonURL If bFirstButton Then sDefButtonURL = sButtonURL bFirstButton = False End If rsMenu.MoveNext Wend End if rsMenu.close Set rsMenu = Nothing iSectionID = Request("bid") If Len(iSectionID) = 0 Then iSectionID = 1 ' Response.Redirect sDefButtonURL End If %>

<%For Each Button In dicMenu%>    <%=Button%> <%Next%>