<%@ Language=VBScript %> <% Option Explicit %> <% If Layout("Testimonials") = False Then Layout.Close Set Layout = Nothing objConn.Close Set objConn = Nothing Response.Redirect "default.asp" End If Dim strPM, PM, Im1path, Im2path, LogoMain, FSYS , Logo, strTest, Test, x, y, RevPhotos, RevPhoto strPM = "SELECT * FROM PageMinder WHERE ID = 5" Set PM = CreateObject("ADODB.RecordSet") PM.Open strPM, objConn Set FSYS = Server.CreateObject("Scripting.FileSystemObject") Im1path = Server.MapPath ("pageminder") & "\" & PM("Image1") Im2path = Server.MapPath ("pageminder") & "\" & PM("Image2") RevPhotos = Server.MapPath ("images/rev") 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 strTest = "SELECT * FROM Awards WHERE Active = True Order By Rank" Set Test = CreateObject("ADODB.RecordSet") Test.Open strTest, objConn %> <%=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 %>
bgcolor="white"<% Else %> width="15"><% 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 Layout("LogoPos") = "Above" Then %> <% End If %>
" <% If Layout("CntClr") <> Layout("HdrImg") Then %>bgcolor="<%=Layout("HdrImg")%>"<% End If %> height="30">
" height="30">
<% 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 %><% If PM("BodyText").ActualSize > 0 Then %>
<%=PM("BodyText")%>
<% End If %><% If Not Test.EOF Then %>
<% x = 1 %><% Do While Not Test.EOF %><% If x Mod 2 = 0 Then y = 1 Else y = 2 End If %> <% x = x + 1 %><% Test.MoveNext %><% Loop %>
<% If Test("Image").ActualSize > 1 Then %><% RevPhoto = RevPhotos & "\" & Test("Image")%><% If FSYS.FileExists(RevPhoto) Then %>
" alt="" border="0">
<% End If %><% End If %>
<%=Test("Statement")%>
<% If Test("Name") > "" Then Response.Write Test("Name") & "
" %><% If Test("Organization") > "" Then Response.Write Test("Organization") & "
" %><% If Test("City") > "" Then Response.Write Test("City") %><% If Test("State") > "" Then Response.Write ", " & Test("State") %>
<% End If %> <% 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 %>>
" valign="top" width="125"> <% 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 %><% If PM("BodyText").ActualSize > 0 Then %>
<%=PM("BodyText")%>
<% End If %><% If Not Test.EOF Then %>
<% x = 1 %><% Do While Not Test.EOF %><% If x Mod 2 = 0 Then y = 1 Else y = 2 End If %> <% x = x + 1 %><% Test.MoveNext %><% Loop %>
<% If Test("Image").ActualSize > 1 Then %><% RevPhoto = RevPhotos & "\" & Test("Image")%><% If FSYS.FileExists(RevPhoto) Then %>
" alt="" border="0">
<% End If %><% End If %>
<%=Test("Statement")%>
<% If Test("Name") > "" Then Response.Write Test("Name") & "
" %><% If Test("Organization") > "" Then Response.Write Test("Organization") & "
" %><% If Test("City") > "" Then Response.Write Test("City") %><% If Test("State") > "" Then Response.Write ", " & Test("State") %>
<% End If %> <% 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 %>
bgcolor="white" <% End If %> width="15"><% If Layout("BL") = "True" Then %><% End If %> bgcolor="white" <% End If %> width="15"><% If Layout("BR") = "True" Then %><% End If %>
<% End If %> <% If Layout("PageAlign") = "Center" Then %>
<% End If %> <% Test.Close Set Test = Nothing PM.Close Set PM = Nothing Layout.Close Set Layout = Nothing siteNav.Close Set siteNav = Nothing Set FSYS = Nothing objConn.Close Set objConn = Nothing %>