<%
' **** SETUP COUTNER FOR SESSION
SessionVar = Session.SessionID
Set Count = conn.execute("Select * FROM Counter WHERE SessionID='" & CSTR(SessionVar) & "' AND Page='Feedback'")
if Count.EOF then
Counter = conn.Execute("Select * FROM Counter Where Page='Feedback' Order By Counter Desc")
Counter = Counter("Counter") + 1
SessDate = FormatDateTime(Now(),2)
Conn.Execute("Insert INTO Counter (Counter,SessionID,SessDate,Page) Select " & Counter & " as Counter, '" & CSTR(SessionVar) & "' as SessionID, #" & SessDate & "# as SessDate, 'Feedback' as Page")
Yesterday = CDate(SessDate)-1
Conn.Execute ("Delete * FROM COUNTER Where SessDate=#" & Yesterday & "# and Page='Feedback'")
ELSE
Counter = Count("Counter")
End if
' **** END COUNTER FUNCTION
%>
<%
If Request("Submit")= "Submit" then
Comments = Request("Comments")
Category = Request("Category")
Name = Request("Name")
Title = Request("Title")
Company = Request("Company")
Address = Request("Address")
Telephone = Request("Telephone")
Fax = Request("Fax")
Email = Request("Email")
If Len(Email)=0 AND Len(Telephone)=0 AND Len(Fax)=0 AND Len(Address)=0 then%>
<%end if
Sub SendMail(toWho, Subject)
Dim MailMessage,Body
Set MailMessage = Server.CreateObject("CDONTS.Newmail")
'Format the information for the body of the email message
Body = "The following is a feedback submission from www.ChelseaCenter.org. " & vbCRLF & vbCRLF & _
"Comments: " & Comments & vbCRLF & _
"Category: " & Category & vbCRLF & vbCRLF & _
"Name: " & Name & vbCRLF & _
"Title: " & Title & vbCRLF & _
"Company: " & Company & vbCRLF & vbCRLF & _
"Address: " & Address & vbCRLF & vbCRLF & _
"Telephone: " & Telephone & vbCRLF & _
"Fax: " & Fax & vbCRLF & _
"Email: " & Email
'MailMessage.From = fromWho
'MailMessage.To = chr(34) & address &chr(34)
MailMessage.To = "publications@chelseacenter.org"
MailMessage.From = EMail
MailMessage.Subject = "www.ChelseaCenter.org - feedback:"
MailMessage.Body = Body
MailMessage.Send
Set MyMail = Nothing
End Sub
'*************************************End of database insert code**************************
'call the mail sub
Call SendMail("publications@chelseacenter.org", "www.ChelseaCenter.org - feedback:")
'************************End of code to execute when submit button is clicked**************
end if
%>
Feedback
Feedback
We welcome
your comments and suggestion; please complete the form below if
you would like to share them.
<%= Counter %> persons
have visited this site since 09/10/98
Chelsea Center for Recycling and Economic Development
180 Second Street, Chelsea, MA 02150
Tel: (617) 887-2300 Fax: (617) 887-0399
Email: info@chelseacenter.org
