<% if Request("submit") <> "" then Dim objCDO Set objCDO = Server.CreateObject("CDO.Message") Dim objCDOConf Set objCDOConf = Server.CreateObject("CDO.Configuration") With objCDOConf.Fields .Item(cdoSendUsingMethod) = 2 .Item(cdoSMTPServer) = "mail-fwd" .Item(cdoSMTPServerPort) = 25 .Item(cdoSMTPconnectiontimeout) = 10 .Update End With Set objCDO.Configuration = objCDOConf ' Be sure to use a valid email addresses below: objCDO.From = "technology@envirotestlaboratories.com" objCDO.To = "customerservice@envirotestlaboratories.com" objCDO.CC = "" objCDO.Subject = "Automated Message: EnviroTest WebMail from the Website" objCDO.TextBody = "The following information was submitted" objCDO.TextBody = objCDO.TextBody & chr(10) objCDO.TextBody = objCDO.TextBody & "from the WebMail Form on the EnviroTest website:" objCDO.TextBody = objCDO.TextBody & chr(10) & "****************************************************************" objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "NAME: " objCDO.TextBody = objCDO.TextBody & Request("NAME") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "EMAIL: " objCDO.TextBody = objCDO.TextBody & Request("EMAIL") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "COMMENTS: " objCDO.TextBody = objCDO.TextBody & Request("COMMENTS") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & chr(10) & "****************************************************************" objCDO.TextBody = objCDO.TextBody & chr(10) & "END OF MESSAGE!!" objCDO.TextBody = objCDO.TextBody & chr(10) & "****************************************************************" objCDO.TextBody = objCDO.TextBody & chr(10) objCDO.TextBody = objCDO.TextBody & chr(10) objCDO.TextBody = objCDO.TextBody & chr(10) & "THIS IS AN AUTOMATED MESSAGE! PLEASE DO NOT REPLY!! IT WILL GO NOWHERE!!!" objCDO.Send 'Clean-up Set objCDO = Nothing Set objCDOConf = Nothing ' Happy response. If you would rather, ' change the following to Response.Redirect "thanks.htm" 'Response.Write "Your Message has been sent. Thank you!" 'Response.End end if %>
">

EnviroTest Form Mail


NAME: 
EMAIL: 
COMMENTS / QUESTIONS: