%@ Language=VBScript %>
<% Option Explicit %>
<%
Dim strPM, PM, Im1path, Im2path, LogoMain, FSYS, Logo, strMenu, Menu, strMC, MenuCat, strRI, RI, MCols, ID, foldGall, newFolderName, ImgFolder, ImgFiles, file, strMenus, Menus
Response.Expires = 0
strPM = "SELECT * FROM PageMinder WHERE ID = 3"
Set PM = CreateObject("ADODB.RecordSet")
PM.Open strPM, objConn
strRI = "SELECT * FROM Restaurants"
Set RI = CreateObject("ADODB.RecordSet")
RI.Open strRI, objConn
If RI("MultipleMenus") = True Then
strMenus = "SELECT * FROM Menus WHERE Catering = False Order By OrderNo"
Set Menus = CreateObject("ADODB.RecordSet")
Menus.Open strMenus, objConn, adOpenStatic
If Request.QueryString("viewMenuID") > "" Then
strMenu= "SELECT * FROM Menu WHERE Menu = "& Request.QueryString("viewMenuID") &" Order By OrderNo"
strMC = "SELECT MenuCats.ID, MenuCats.MenuCat, First(MenuCats.OrderNo) As OrderNo, First(MenuCats.CatDescrip) AS CatDescrip FROM Menu LEFT JOIN MenuCats ON Menu.MenuCat = MenuCats.ID GROUP BY MenuCats.ID, MenuCats.MenuCat, Menu.Menu HAVING (((Menu.Menu)="& Request.QueryString("viewMenuID") &")) Order By First(MenuCats.OrderNo)"
ElseIf Not Menus.EOF Then
strMenu= "SELECT * FROM Menu WHERE Menu = "& Menus("ID") &" Order By OrderNo"
strMC = "SELECT MenuCats.ID, MenuCats.MenuCat, First(MenuCats.OrderNo) As OrderNo, First(MenuCats.CatDescrip) AS CatDescrip FROM Menu LEFT JOIN MenuCats ON Menu.MenuCat = MenuCats.ID GROUP BY MenuCats.ID, MenuCats.MenuCat, Menu.Menu HAVING (((Menu.Menu)="& Menus("ID") &")) Order By First(MenuCats.OrderNo)"
Else
strMenu= "SELECT * FROM Menu Order By OrderNo"
strMC = "SELECT * FROM MenuCats Order By OrderNo"
End If
Else
strMenu= "SELECT * FROM Menu Order By OrderNo"
strMC = "SELECT * FROM MenuCats Order By OrderNo"
End If
Set Menu = CreateObject("ADODB.RecordSet")
Menu.Open strMenu, objConn
Set MenuCat = CreateObject("ADODB.RecordSet")
MenuCat.Open strMC, objConn
MCols = 1
If Layout("MPhotos") = True AND Layout("MIAlign") <> "Center" Then MCols = MCols + 1
If Layout("MPrice") = "right" AND Layout("MIAlign") <> "Center" Then MCols = MCols + 1
Set FSYS = Server.CreateObject("Scripting.FileSystemObject")
Im1path = Server.MapPath ("pageminder") & "\" & PM("Image1")
Im2path = Server.MapPath ("pageminder") & "\" & PM("Image2")
If Layout("LogoSub") > "" Then
LogoMain = Server.MapPath ("logo") & "\" & Layout("LogoSub")
If FSYS.FileExists(LogoMain) Then Logo = Layout("LogoSub")
Else
LogoMain = Server.MapPath ("logo") & "\" & Layout("LogoMain")
If FSYS.FileExists(LogoMain) Then Logo = Layout("LogoMain")
End If
%>
<%=PM("PageTitle")%>
">
">
" marginwidth="<%=Layout("LeftMargin")%>" topmargin="<%=Layout("TopMargin")%>" marginheight="<%=Layout("TopMargin")%>">
<% If Layout("PageAlign") = "Center" Then %>
<% End If %>
<% If BRC = "True" OR TRC = "True" Then %>
"100%"<% Else %>"780"<% End If %>>
<% If TRC = "True" Then %>
><% If Layout("TL") = "True" Then %><% End If %>
><% If Layout("TR") = "True" Then %><% End If %>
<% End If %>
<% End If %><% If Layout("NavLoc") = "Horizontal" Then %>
bgcolor="white"<% End If %> width=<% If Layout("PageAlign") = "Full" Then %>"100%"<% If Layout("PageHeight") = True Then %> height="100%"<% End If %><% Else %><% If TRC OR BRC = "True" Then %>"750"<% Else %>"780"<% If Layout("PageHeight") = True Then %> height="100%"<% End If %><% End If %><% End If %>>
<% If Layout("LogoPos") = "Below" Then %>
Layout("HdrImg") Then %>bgcolor="<%=Layout("HdrImg")%>"<% End If %> align="<%=Layout("NavAlign")%>">
<% End If %><% If FSYS.FileExists(LogoMain) Then %>
<% End If %><% If Layout("LogoPos") = "Above" Then %>
">
<% End If %>
<% If FSYS.FileExists(im1Path) Then %>
style="padding-right: 6px; padding-bottom: 6px; filter:shadow(color:gray, strength:4, direction:135);"<% End If %>>
" border='<% If PM("Img1Border") = True Then %>1<% Else %>0<% End If %>'>
<% End If %><% If PM("Headline").ActualSize > 0 Then %>
<%=PM("Headline")%>
<% End If %><% If PM("HeaderText").ActualSize > 0 Then %>
<%=PM("HeaderText")%>
<% End If %><% If PM("BodyText").ActualSize > 0 Then %>
<%=PM("BodyText")%>
<% End If %>
<% 'If Not Menu.EOF Then %>
<% If RI("MultipleMenus") = True Then %>
<% If Not Menus.EOF Then %><% If Request.QueryString("ViewMenuID") > "" Then %>
<% Menus.Filter = "ID = "& Request.QueryString("ViewMenuID") &"" %>
<% If InStr(Menus("Menu"),"menu") > 0 Then %><%=Menus("Menu")%><% Else %><%=Menus("Menu")%> Menu<% End If %>
<% Else %>
<% If InStr(Menus("Menu"),"menu") > 0 Then %><%=Menus("Menu")%><% Else %><%=Menus("Menu")%> Menu<% End If %> <% End If %>
<% Menus.Filter = "" %><% If Menus.RecordCount > 1 Then %><% End If %><% End If %>
<% End If %>
<% If Layout("MenuImages") = "HorzStrip" Then %><%
ID = Layout("ID")
foldGall = "images/menu/" & ID & "top"
newFolderName = Server.MapPath (foldGall)
%><% If FSYS.FolderExists(newFolderName) Then %><% Set ImgFolder = FSYS.GetFolder(newFolderName) %><% Set ImgFiles = ImgFolder.Files %>
<% If Layout("MenuLayout") = "Multiple" AND Request.QueryString("mc") > "" Then MenuCat.Filter = "ID = "& Request.QueryString("mc") &""%><% MenuCat.MoveFirst %><% Do While Not MenuCat.EOF %><% Menu.Filter = "MenuCat = "& MenuCat("ID") &"" %><% If Not Menu.EOF Then %>
<%=MenuCat("MenuCat")%><% If Layout("MCDLoc") = "Right" Then %> <%=MenuCat("CatDescrip")%><% End If %>
<% If Layout("MCDLoc") = "Below" AND MenuCat("CatDescrip").ActualSize > 1 Then %>
<%=MenuCat("CatDescrip")%>
<% End If %><% If Layout("MenuLayout") = "Multiple" AND Request.QueryString("mc") = "" Then %>
<% Else %><% Menu.MoveFirst %><% Do While Not Menu.EOF %>
<% If Layout("MPhotos") = True AND Layout("MIAlign") <> "Center" Then %>
<% If Menu("Image").ActualSize > 1 Then %><% End If %>
<% End If %>
<% If Layout("MPhotos") = True AND Layout("MIAlign") = "Center" Then %><% If Menu("Image").ActualSize > 1 Then %>
<% End If %><% End If %><%=Menu("Item")%><% If Layout("MPrice") = "right" AND Layout("MIAlign") = "Center" Then %> <% If Menu("Price") > 0 Then Response.Write FormatCurrency(Menu("Price"),2)%><% End If %><% If Layout("MIDLoc") = "Right" Then %> <%=Menu("Description")%><% If Layout("MPrice") = "end" Then %> <% If Menu("Price") > 0 Then Response.Write FormatCurrency(Menu("Price"),2)%><% End If %><% End If %><% If Layout("MPrice") = "b1" Then %> <% If Menu("Price") > 0 Then Response.Write FormatCurrency(Menu("Price"),2)%><% End If %>
<% If Layout("MIDLoc") = "Below" Then %>
<%=Menu("Description")%><% If Layout("MPrice") = "end" Then %> <% If Menu("Price") > 0 Then Response.Write FormatCurrency(Menu("Price"),2)%><% End If %>
<% End If %><% If Layout("MPrice") = "b2" Then %>
<% If Menu("Price") > 0 Then Response.Write FormatCurrency(Menu("Price"),2)%>
<% End If %>
<% If Layout("MPrice") = "right" AND Layout("MIAlign") <> "Center" Then %>
<% If Menu("Price") > 0 Then Response.Write FormatCurrency(Menu("Price"),2)%>
<% End If %>
<% Menu.MoveNext %><% Loop %><% End If %><% End If %><% MenuCat.MoveNext %><% Loop %><% MenuCat.Filter = "" %>
<% If Layout("MenuImages") = "HorzStrip" Then %><%
ID = Layout("ID")
foldGall = "images/menu/" & ID & "bottom"
newFolderName = Server.MapPath (foldGall)
%><% If FSYS.FolderExists(newFolderName) Then %><% Set ImgFolder = FSYS.GetFolder(newFolderName) %><% Set ImgFiles = ImgFolder.Files %>
<% For Each file in ImgFiles %>
" border="0">
<% Next %>
<% End If %><% End If %>
<% If RI("MultipleMenus") = True Then %><% Menus.Filter = "" %><% If Menus.RecordCount > 1 Then %>
<% If Not Menus.EOF Then %><% If Request.QueryString("ViewMenuID") > "" Then %>
<% Menus.Filter = "ID = "& Request.QueryString("ViewMenuID") &"" %>
<% If InStr(Menus("Menu"),"menu") > 0 Then %><%=Menus("Menu")%><% Else %><%=Menus("Menu")%> Menu<% End If %>
<% Else %>
<% If InStr(Menus("Menu"),"menu") > 0 Then %><%=Menus("Menu")%><% Else %><%=Menus("Menu")%> Menu<% End If %> <% End If %>
<% End If %><% End If %>
<% End If %>
<% If FSYS.FileExists(im2Path) Then %>
style="padding-right: 6px; padding-bottom: 6px; filter:shadow(color:gray, strength:4, direction:135);"<% End If %>>
" border='<% If PM("Img2Border") = True Then %>1<% Else %>0<% End If %>'>
<% End If %><% If PM("FooterText").ActualSize > 0 Then %>
<%=PM("FooterText")%>
<% End If %>
<% If Layout("OptIn") = True Then %><% End If %>
<% Else %>
bgcolor="white"<% End If %> width=<% If Layout("PageAlign") = "Full" Then %>"100%"<% If Layout("PageHeight") = True Then %> height="100%"<% End If %><% Else %><% If TRC OR BRC = "True" Then %>"750"<% Else %>"780"<% If Layout("PageHeight") = True Then %> height="100%"<% End If %><% End If %><% End If %>>
<% If FSYS.FileExists(LogoMain) Then %>
style="padding-right: 6px; padding-bottom: 6px; filter:shadow(color:gray, strength:4, direction:135);" <% End If %>>
" border='<% If PM("Img1Border") = True Then %>1<% Else %>0<% End If %>'>
<% End If %><% If PM("Headline").ActualSize > 0 Then %>
<%=PM("Headline")%>
<% End If %><% If PM("HeaderText").ActualSize > 0 Then %>
<%=PM("HeaderText")%>
<% End If %><% If PM("BodyText").ActualSize > 0 Then %>
<%=PM("BodyText")%>
<% End If %>
<% If RI("MultipleMenus") = True Then %>
<% If Not Menus.EOF Then %><% If Request.QueryString("ViewMenuID") > "" Then %>
<% Menus.Filter = "ID = "& Request.QueryString("ViewMenuID") &"" %>
<% If InStr(Menus("Menu"),"menu") > 0 Then %><%=Menus("Menu")%><% Else %><%=Menus("Menu")%> Menu<% End If %>
<% Else %>
<% If InStr(Menus("Menu"),"menu") > 0 Then %><%=Menus("Menu")%><% Else %><%=Menus("Menu")%> Menu<% End If %> <% End If %>
<% Menus.Filter = "" %><% If Menus.RecordCount > 1 Then %><% End If %><% End If %>
<% End If %>
<% If Layout("MenuImages") = "HorzStrip" Then %><%
ID = Layout("ID")
foldGall = "images/menu/" & ID & "top"
newFolderName = Server.MapPath (foldGall)
%><% If FSYS.FolderExists(newFolderName) Then %><% Set ImgFolder = FSYS.GetFolder(newFolderName) %><% Set ImgFiles = ImgFolder.Files %>
<% If Layout("MenuLayout") = "Multiple" AND Request.QueryString("mc") > "" Then MenuCat.Filter = "ID = "& Request.QueryString("mc") &""%><% MenuCat.MoveFirst %><% Do While Not MenuCat.EOF %><% Menu.Filter = "MenuCat = "& MenuCat("ID") &"" %><% If Not Menu.EOF Then %>
<%=MenuCat("MenuCat")%><% If Layout("MCDLoc") = "Right" Then %> <%=MenuCat("CatDescrip")%><% End If %>
<% If Layout("MCDLoc") = "Below" AND MenuCat("CatDescrip").ActualSize > 1 Then %>
<%=MenuCat("CatDescrip")%>
<% End If %><% If Layout("MenuLayout") = "Multiple" AND Request.QueryString("mc") = "" Then %>
<% Else %><% Menu.MoveFirst %><% Do While Not Menu.EOF %>
<% If Layout("MPhotos") = True AND Layout("MIAlign") <> "Center" Then %>
<% If Menu("Image").ActualSize > 1 Then %><% End If %>
<% End If %>
<% If Layout("MPhotos") = True AND Layout("MIAlign") = "Center" Then %><% If Menu("Image").ActualSize > 1 Then %>
<% End If %><% End If %><%=Menu("Item")%><% If Layout("MPrice") = "right" AND Layout("MIAlign") = "Center" Then %> <% If Menu("Price") > 0 Then Response.Write FormatCurrency(Menu("Price"),2)%><% End If %><% If Layout("MIDLoc") = "Right" Then %> <%=Menu("Description")%><% If Layout("MPrice") = "end" Then %> <% If Menu("Price") > 0 Then Response.Write FormatCurrency(Menu("Price"),2)%><% End If %><% End If %><% If Layout("MPrice") = "b1" Then %> <% If Menu("Price") > 0 Then Response.Write FormatCurrency(Menu("Price"),2)%><% End If %>
<% If Layout("MIDLoc") = "Below" Then %>
<%=Menu("Description")%><% If Layout("MPrice") = "end" Then %> <% If Menu("Price") > 0 Then Response.Write FormatCurrency(Menu("Price"),2)%><% End If %>
<% End If %><% If Layout("MPrice") = "b2" Then %>
<% If Menu("Price") > 0 Then Response.Write FormatCurrency(Menu("Price"),2)%>
<% End If %>
<% If Layout("MPrice") = "right" AND Layout("MIAlign") <> "Center" Then %>
<% If Menu("Price") > 0 Then Response.Write FormatCurrency(Menu("Price"),2)%>
<% End If %>
<% Menu.MoveNext %><% Loop %><% End If %><% End If %><% MenuCat.MoveNext %><% Loop %><% MenuCat.Filter = "" %>
<% If Layout("MenuImages") = "HorzStrip" Then %><%
ID = Layout("ID")
foldGall = "images/menu/" & ID & "bottom"
newFolderName = Server.MapPath (foldGall)
%><% If FSYS.FolderExists(newFolderName) Then %><% Set ImgFolder = FSYS.GetFolder(newFolderName) %><% Set ImgFiles = ImgFolder.Files %>
<% For Each file in ImgFiles %>
" border="0">
<% Next %>
<% End If %><% End If %>
<% If RI("MultipleMenus") = True Then %><% Menus.Filter = "" %><% If Menus.RecordCount > 1 Then %>
<% If Not Menus.EOF Then %><% If Request.QueryString("ViewMenuID") > "" Then %>
<% Menus.Filter = "ID = "& Request.QueryString("ViewMenuID") &"" %>
<% If InStr(Menus("Menu"),"menu") > 0 Then %><%=Menus("Menu")%><% Else %><%=Menus("Menu")%> Menu<% End If %>
<% Else %>
<% If InStr(Menus("Menu"),"menu") > 0 Then %><%=Menus("Menu")%><% Else %><%=Menus("Menu")%> Menu<% End If %> <% End If %>
<% End If %><% End If %>
<% End If %>
<% If FSYS.FileExists(im2Path) Then %>
style="padding-right: 6px; padding-bottom: 6px; filter:shadow(color:gray, strength:4, direction:135);" <% End If %>>
" border='<% If PM("Img2Border") = True Then %>1<% Else %>0<% End If %>'>
<% End If %><% If PM("FooterText").ActualSize > 0 Then %>
<%=PM("FooterText")%>
<% End If %>
<% End If %><% If TRC = "True" OR BRC = "True"Then %>
<% If BRC = "True" Then %>
><% If Layout("BL") = "True" Then %><% End If %>
><% If Layout("BR") = "True" Then %><% End If %>
<% End If %>
<% End If %><% If Layout("PageAlign") = "Center" Then %>
<% End If %>
<%
PM.Close
Set PM = Nothing
Menu.Close
Set Menu = Nothing
MenuCat.Close
Set MenuCat = Nothing
If RI("MultipleMenus") = True Then
Menus.Close
Set Menus = Nothing
End If
RI.Close
Set RI = Nothing
Layout.Close
Set Layout = Nothing
siteNav.Close
Set siteNav = Nothing
Set FSYS = Nothing
objConn.Close
Set objConn = Nothing
%>