<% ' **** 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 Who We Are
Programs & Services
Massachusetts Manufacturers
Resources & Links
Publications
New & Events
Case Studies
Facts & Statistics

 



 

 


www.ChelseaCenter.org

Feedback

We welcome your comments and suggestion; please complete the form below if you would like to share them.

Comments:


Category:   
   
Contact Information:
   
Name :
  
Title :
  
Company :
  
Address :
  
Telephone :
  
FAX :
  
E-mail :
  

HomeSite Map

<%= 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