<%= BrowserTitle %> | <%= MetaTitle %>

<%@LANGUAGE="VBSCRIPT" %> <% connData = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("data\data.mdb") %> <% Dim MenuItemID, MenuItemTitle, SectionID, SectionTitle, PageID, PageTitle, PageHTML, MetaKeywords, MetaDescription, numPages, whereClause MenuItemID = 0 MenuItemTitle = "" MenuItemFilename = "" SectionID = 0 SectionTitle = "" PageID = 0 PageTitle = "" PageHTML = "" MetaKeywords = "" MetaDescription = "" numPages = 0 whereClause = "" ' ================================================ Get page data ' get menu item title Set rsMenuItem = Server.CreateObject("ADODB.Recordset") rsMenuItem.ActiveConnection = connData rsMenuItem.Source = "SELECT MenuItemTitle, MenuItemFilename FROM MENUITEMS WHERE MenuItemID = 1" rsMenuItem.CursorType = 3 rsMenuItem.CursorLocation = 2 rsMenuItem.LockType = 1 rsMenuItem.Open() MenuItemTitle = rsMenuItem("MenuItemTitle") MenuItemFilename = rsMenuItem("MenuItemFilename") rsMenuItem.Close() Set rsMenuItem = Nothing ' if qs present use that, otherwise get first ranking section for this menu item If Request.QueryString("SectionID") <> "" Then SectionID = Request.QueryString("SectionID") whereClause = " AND SECTIONS.SectionID = " & SectionID End If Set rsPages = Server.CreateObject("ADODB.Recordset") rsPages.ActiveConnection = connData rsPages.Source = "SELECT * FROM WEBPAGES INNER JOIN SECTIONS ON WEBPAGES.SectionID = SECTIONS.SectionID WHERE Active = True AND SECTIONS.MenuItemID = " & MenuItemID & whereClause & " ORDER BY SectionRank, PageRank" rsPages.CursorType = 0 rsPages.CursorLocation = 2 rsPages.LockType = 1 rsPages.Open() If rsPages.EOF = False Then SectionID = rsPages("SectionID") SectionTitle = rsPages("SectionTitle") PageID = rsPages("PageID") PageTitle = rsPages("PageTitle") PageHTML = rsPages("PageHTML") MetaTitle = rsPages("MetaTitle") MetaSubject = rsPages("MetaSubject") MetaKeywords = rsPages("MetaKeywords") MetaDescription = rsPages("MetaDescription") End If rsPages.Close() Set rsPages = Nothing %> <% Dim BrowserTitle, FooterText Set rsSettings = Server.CreateObject("ADODB.Recordset") rsSettings.ActiveConnection = connData rsSettings.Source = "SELECT * FROM SETTINGS" rsSettings.CursorType = 0 rsSettings.CursorLocation = 2 rsSettings.LockType = 1 rsSettings.Open() BrowserTitle = rsSettings("BrowserTitle") FooterText = rsSettings("FooterText") rsSettings.Close() Set rsSettings = Nothing %> <%= BrowserTitle %> | <%= MetaTitle %>

<% Set rsMenuItems = Server.CreateObject("ADODB.Recordset") rsMenuItems.ActiveConnection = connData rsMenuItems.Source = "SELECT * FROM MENUITEMS ORDER BY MenuItemRank" rsMenuItems.CursorType = 0 rsMenuItems.CursorLocation = 2 rsMenuItems.LockType = 1 rsMenuItems.Open() While rsMenuItems.BOF = False And rsMenuItems.EOF = False Response.Write " <% rsMenuItems.MoveNext() Wend rsMenuItems.Close() Set rsMenuItems = Nothing %>

" Set rsSections = Server.CreateObject("ADODB.Recordset") rsSections.ActiveConnection = connData rsSections.Source = "SELECT * FROM SECTIONS WHERE MenuItemID = " & rsMenuItems("MenuItemID") & " ORDER BY SectionRank" rsSections.CursorType = 3 rsSections.CursorLocation = 2 rsSections.LockType = 1 rsSections.Open() If rsSections.RecordCount > 1 Then Response.Write "" & rsMenuItems("MenuItemTitle") & "" & vbcrlf Response.Write "

" & vbcrlf Response.Write "
" & vbcrlf While rsSections.BOF = False And rsSections.EOF = False Response.Write " " & rsSections("SectionTitle") & "" & vbcrlf rsSections.MoveNext() Wend rsSections.Close() Set rsSections = Nothing Response.Write "
" & vbcrlf Response.Write "

" & vbcrlf Response.Write "

" & vbcrlf Else Response.Write "" & rsMenuItems("MenuItemTitle") & "" & vbcrlf End If %>

Web design by Granite Digital Imaging

<%= Replace(FooterText,vbcrlf,"
") %>