<% on error resume next 'option explicit 'Response.Buffer = true dim MessageBody dim objCDOSYSMail dim objCDOSYSCon MessageBody = "You have a message ...
" MessageBody = MessageBody & "-----------------------------------------------------
" MessageBody = MessageBody & "Customer Name : " & trim(Request.Form("customer_name")) & "
" MessageBody = MessageBody & "Customer Email : " & trim(Request.Form("customer_email")) & "
" MessageBody = MessageBody & "Customer Message : " & trim(Request.Form("customer_message")) & "
" MessageBody = MessageBody & "

" MessageBody = MessageBody & "-----------------------------------------------------" ' Create the e-mail server object Set objCDOSYSMail = Server.CreateObject("CDO.Message") Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") ' Outgoing SMTP server objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 objCDOSYSCon.Fields.Update ' Update the CDOSYS Configuration Set objCDOSYSMail.Configuration = objCDOSYSCon objCDOSYSMail.From = trim(Request.Form("customer_email")) objCDOSYSMail.To = session("company_email") objCDOSYSMail.Subject = "Feedback" objCDOSYSMail.HTMLBody = MessageBody objCDOSYSMail.Send 'Close the server mail object Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing Response.Redirect "index.asp?storename=" & Request.QueryString("storename") %>