<% HDWCaptchaValidation %> <% 'Sends an email ' ********************************************************** Dim objCDOConfig Set objCDOConfig = Server.CreateObject("CDO.Configuration") objCDOConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objCDOConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "webmail.cornerstoneit.com" objCDOConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10 objCDOConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objCDOConfig.Fields.Update ' ********************************************************** Dim mail Dim mailCC Set mail = Server.CreateObject("CDO.Message") Set mail.Configuration = objCDOConfig mail.To = "info@ManhattanConsultants.com" mail.From = "info@ManhattanConsultants.com" mail.Subject = ("Information Request from Manhattan Consultants") mail.TextBody = "First Name: " & Request.Form("firstName") & vbcrlf & vbcrlf & "Last Name: " & Request.Form("lastName") & vbcrlf & vbcrlf & "Company: " & Request.Form("company") & vbcrlf & vbcrlf & "Phone: " & Request.Form("phone") & vbcrlf & vbcrlf & "E-mail Address: " & Request.Form("email") & vbcrlf & vbcrlf & "Interested in receiving more information about: " & Request.Form("interest") & vbcrlf & vbcrlf & vbcrlf & "Description of needs: " & Request.Form("description") Set mailCC = Server.CreateObject("CDO.Message") Set mailCC.Configuration = objCDOConfig mailCC.To = Request.Form ("email") mailCC.From = "info@ManhattanConsultants.com" mailCC.Subject = ("Information Request Confirmation from Manhattan Consultants") mailCC.TextBody = "**** Please do not reply to this message. ****" & vbcrlf & vbcrlf & vbcrlf & "Thank you for requesting information from Manhattan Consultants. This email is to confirm the information you submitted to us." & vbcrlf & vbcrlf & "Here is the information you provided:" & vbcrlf & vbcrlf & vbcrlf & "First Name: " & Request.Form("firstName") & vbcrlf & vbcrlf & "Last Name: " & Request.Form("lastName") & vbcrlf & vbcrlf & "Company: " & Request.Form("company") & vbcrlf & vbcrlf & "Phone: " & Request.Form("phone") & vbcrlf & vbcrlf & "E-mail Address: " & Request.Form("email") & vbcrlf & vbcrlf & "Interested in receiving more information about: " & Request.Form("interest") & vbcrlf & vbcrlf & vbcrlf & "Description of needs: " & Request.Form("description") & vbcrlf & vbcrlf & vbcrlf & vbcrlf & "Thank you for contacting Manhattan Consultants." & vbcrlf & vbcrlf & vbcrlf & "Manhattan Consultants" & vbcrlf & vbcrlf & "PHONE: (XXX) XXX-XXXX" & vbcrlf & "FAX: (YYY) YYY-YYYY" & vbcrlf & "http://manhattanconsultants.com" mail.Send() mailCC.Send() Response.Redirect("ThankYou.asp") 'Destroy the mail object! Set mail = nothing %>