<%@ Language=VBScript %> <% Option Explicit %> <% Dim strPM, PM, Im1path, Im2path, LogoMain, FSYS , Logo strPM = "SELECT * FROM PageMinder WHERE ID = 10" 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") If Layout("LogoSub") > "" Then LogoMain = Server.MapPath ("logo") & "\" & Layout("LogoSub") If FSYS.FileExists(LogoMain) Then Logo = Layout("LogoSub") End If If Logo = "" Then LogoMain = Server.MapPath ("logo") & "\" & Layout("LogoMain") If FSYS.FileExists(LogoMain) Then Logo = Layout("LogoMain") End If If Request.QueryString("mode") = "submit" Then Dim strCnt, Cnt, MailGo, EM, strEM, cdoConfig, Msg strEM = "SELECT Email FROM Restaurants" Set EM = CreateObject("ADODB.RecordSet") EM.Open strEM, objConn strCnt = "SELECT * FROM Contacts WHERE 1 = 2" Set Cnt = CreateObject("ADODB.RecordSet") Cnt.Open strCnt, objConn, , adLockOptimistic Cnt.AddNew Cnt("Name") = Request.Form("Name") Cnt("EMail") = Request.Form("Email") Cnt("Company") = Request.Form("Company") Cnt("Telephone") = Request.Form("Telephone") Cnt("FAX") = Request.Form("Fax") Cnt("Address") = Request.Form("Address") Cnt("City") = Request.Form("City") Cnt("State") = Request.Form("State") Cnt("Zip") = Request.Form("Zip") Cnt("Message") = Request.Form("Message") Cnt("MessageDate") = Now() Cnt.Update Cnt.Close Set Cnt = Nothing Set cdoConfig = CreateObject("CDO.Configuration") With cdoConfig.Fields .Item(cdoSendUsingMethod) = cdoSendUsingPort .Item(cdoSMTPServer) = "mail.gudemangroup.com" .Update End With Set MailGo = Server.CreateObject("CDO.Message") Set MailGo.Configuration = cdoConfig MailGo.To = EM("Email") Msg = "You have received a new contact from the "& CoWeb &" web site.

" Msg = Msg & "Name: " & Request.Form("Name") & "
" Msg = Msg & "Comany: " & Request.Form("Company") & "
" Msg = Msg & "Address: " & Request.Form("Address") & "
" Msg = Msg & "City, State & Zip: " & Request.Form("City") & ", " & Request.Form("State") & " " & Request.Form("Zip") & "
" Msg = Msg & "Telephone: " & Request.Form("Telephone") & "
" Msg = Msg & "FAX: " & Request.Form("Fax") & "
" Msg = Msg & "E-mail: " & Request.Form("Email") & "
" Msg = Msg & "Message:
" & Request.Form("Message") & "

" Msg = Msg & "This contact has been logged in your Site Administration for future management." MailGo.HTMLBody = Msg MailGo.From = "website@"& CoWeb &"" MailGo.Subject= "WebSite Contact Received" MailGo.Send Set MailGo = Nothing Set cdoConfig = Nothing EM.Close Set EM = Nothing Response.Cookies("nopop") = "True" Response.Cookies("nopop").Expires = Date + 30 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 %> <% 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 FSYS.FileExists(LogoMain) 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 %>
<%=PM("BodyText")%>
<% If Request.QueryString("mode") = "submit" Then %>
Thank you for contacting <%=CoName%>.
Name  <%=Request.Form("Name")%>
Company  <%=Request.Form("Company")%>
Telephone  <%=Request.Form("Telephone")%>
Fax  <%=Request.Form("Fax")%>
E-Mail  <%=Request.Form("Email")%>
Address  <%=Request.Form("Address")%>
City  <%=Request.Form("City")%>
State 
<%=Request.Form("State")%> Zip  <%=Request.Form("Zip")%>
Message:
<%=Request.Form("Message")%>
<% Else %>
Complete the form below to contact <%=CoName%>:
Name
Company
Telephone
Fax
E-Mail
Address
City
State
Zip
Message:
<% 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 %>
" 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 %>
<%=PM("BodyText")%>
<% If Request.QueryString("mode") = "submit" Then %>
Thank you for contacting <%=CoName%>.
Name  <%=Request.Form("Name")%>
Company  <%=Request.Form("Company")%>
Telephone  <%=Request.Form("Telephone")%>
Fax  <%=Request.Form("Fax")%>
E-Mail  <%=Request.Form("Email")%>
Address  <%=Request.Form("Address")%>
City  <%=Request.Form("City")%>
State 
<%=Request.Form("State")%> Zip  <%=Request.Form("Zip")%>
Message:
<%=Request.Form("Message")%>
<% Else %>
Complete the form below to contact <%=CoName%>:
Name
Company
Telephone
Fax
E-Mail
Address
City
State
Zip
Message:
<% 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 %>
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 %> <% PM.Close Set PM = Nothing Layout.Close Set Layout = Nothing siteNav.Close Set siteNav = Nothing Set FSYS = Nothing objConn.Close Set objConn = Nothing %>