<%@ Language=VBScript %> <% Option Explicit %> <% Dim strPM, PM, Im1path, Im2path, LogoMain, FSYS , strHr, Hours strPM = "SELECT * FROM PageMinder WHERE ID = 1" Set PM = CreateObject("ADODB.RecordSet") PM.Open strPM, objConn strHr = "SELECT * FROM Hours" Set Hours = CreateObject("ADODB.RecordSet") Hours.Open strHr, objConn Set FSYS = Server.CreateObject("Scripting.FileSystemObject") Im1path = Server.MapPath ("pageminder") & "\" & PM("Image1") Im2path = Server.MapPath ("pageminder") & "\" & PM("Image2") LogoMain = Server.MapPath ("logo") & "\" & Layout("LogoMain") %> <%=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 %> <% End If %> <% If BRC = "True" Then %> <% End If %>
><% If Layout("TL") = "True" Then %><% End If %> ><% If Layout("TR") = "True" Then %><% 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 %> <% End If %><% If FSYS.FileExists(LogoMain) Then %> <% End If %><% If Layout("LogoPos") = "Above" Then %> <% End If %>
Layout("HdrImg") Then %>bgcolor="<%=Layout("HdrImg")%>"<% End If %> align="<%=Layout("NavAlign")%>">
">
<% If FSYS.FileExists(im1Path) Then %>
style="padding-right: 6px; padding-bottom: 6px; filter:shadow(color:gray, strength:4, direction:135);"<% End If %>> <% Response.Write CoName & " 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 %>
<%=PM("BodyText")%>
HOURS OF OPERATION
Monday: <% If Hours("HrMonO") = "" Then %>CLOSED<% Else %><%=Hours("HrMonO")%> <%=Hours("MoO")%> - <%=Hours("HrMonC")%> <%=Hours("MoC")%><% End If %>
Tuesday: <% If Hours("HrTueO") = "" Then %>CLOSED<% Else %><%=Hours("HrTueO")%> <%=Hours("TuO")%> - <%=Hours("HrTueC")%> <%=Hours("TuC")%><% End If %>
Wednesday: <% If Hours("HrWedO") = "" Then %>CLOSED<% Else %><%=Hours("HrWedO")%> <%=Hours("WeO")%> - <%=Hours("HrWedC")%> <%=Hours("WeC")%><% End If %>
Thursday: <% If Hours("HrThuO") = "" Then %>CLOSED<% Else %><%=Hours("HrThuO")%> <%=Hours("ThO")%> - <%=Hours("HrThuC")%> <%=Hours("ThC")%><% End If %>
Friday: <% If Hours("HrFriO") = "" Then %>CLOSED<% Else %><%=Hours("HrFriO")%> <%=Hours("FrO")%> - <%=Hours("HrFriC")%> <%=Hours("FrC")%><% End If %>
Saturday: <% If Hours("HrSatO") = "" Then %>CLOSED<% Else %><%=Hours("HrSatO")%> <%=Hours("SaO")%> - <%=Hours("HrSatC")%> <%=Hours("SaC")%><% End If %>
Sunday: <% If Hours("HrSunO") = "" Then %>CLOSED<% Else %><%=Hours("HrSunO")%> <%=Hours("SuO")%> - <%=Hours("HrSunC")%> <%=Hours("SuC")%><% End If %>

<% Response.Write CoName & " - " & CoAddr & " - " & CoCity & " " & CoZip & " - " & CoPhone %><% If CoFax > "" Then Response.Write " - FAX: " & CoFax %>
<% If FSYS.FileExists(im2Path) Then %>
style="padding-right: 6px; padding-bottom: 6px; filter:shadow(color:gray, strength:4, direction:135);"<% End If %>> <% Response.Write CoName & " 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 %> <% End If %>
Layout("HdrImg") Then %>bgcolor="<%=Layout("HdrImg")%>"<% End If %> colspan="2" class="logo" valign="top" height="50" align="<%=Layout("LogoAlign")%>"><% Response.Write CoName & " border="0">
" width="125" valign="top"> <% If FSYS.FileExists(im1Path) Then %>
style="padding-right: 6px; padding-bottom: 6px; filter:shadow(color:gray, strength:4, direction:135);"<% End If %>> <% Response.Write CoName & " 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 %>
<%=PM("BodyText")%>
HOURS OF OPERATION
Monday: <% If Hours("HrMonO") = "" Then %>CLOSED<% Else %><%=Hours("HrMonO")%> <%=Hours("MoO")%> - <%=Hours("HrMonC")%> <%=Hours("MoC")%><% End If %>
Tuesday: <% If Hours("HrTueO") = "" Then %>CLOSED<% Else %><%=Hours("HrTueO")%> <%=Hours("TuO")%> - <%=Hours("HrTueC")%> <%=Hours("TuC")%><% End If %>
Wednesday: <% If Hours("HrWedO") = "" Then %>CLOSED<% Else %><%=Hours("HrWedO")%> <%=Hours("WeO")%> - <%=Hours("HrWedC")%> <%=Hours("WeC")%><% End If %>
Thursday: <% If Hours("HrThuO") = "" Then %>CLOSED<% Else %><%=Hours("HrThuO")%> <%=Hours("ThO")%> - <%=Hours("HrThuC")%> <%=Hours("ThC")%><% End If %>
Friday: <% If Hours("HrFriO") = "" Then %>CLOSED<% Else %><%=Hours("HrFriO")%> <%=Hours("FrO")%> - <%=Hours("HrFriC")%> <%=Hours("FrC")%><% End If %>
Saturday: <% If Hours("HrSatO") = "" Then %>CLOSED<% Else %><%=Hours("HrSatO")%> <%=Hours("SaO")%> - <%=Hours("HrSatC")%> <%=Hours("SaC")%><% End If %>
Sunday: <% If Hours("HrSunO") = "" Then %>CLOSED<% Else %><%=Hours("HrSunO")%> <%=Hours("SuO")%> - <%=Hours("HrSunC")%> <%=Hours("SuC")%><% End If %>

<% Response.Write CoName & " - " & CoAddr & " - " & CoCity & " " & CoZip & " - " & CoPhone %><% If CoFax > "" Then Response.Write " - FAX: " & CoFax %>
<% If FSYS.FileExists(im2Path) Then %>
style="padding-right: 6px; padding-bottom: 6px; filter:shadow(color:gray, strength:4, direction:135);"<% End If %>> <% Response.Write CoName & " 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 Layout("BL") = "True" Then %><% End If %> ><% If Layout("BR") = "True" Then %><% End If %>
<% End If %><% If Layout("PageAlign") = "Center" Then %>
<% End If %> <% PM.Close Set PM = Nothing Hours.Close Set Hours = Nothing Layout.Close Set Layout = Nothing siteNav.Close Set siteNav = Nothing Set FSYS = Nothing objConn.Close Set objConn = Nothing %>