ASP form with a thank you page and email

xAbysSx · Jan 22, 2013

I have a contact form already built. My boss wants to add a feature where after the client fills out and submits the form, the client then receives a thank you message in their email box.Here is the back end code I'm using:\[code\]<%Dim iMsgDim iConfDim FldsDim EMailBodyDim strSmartHostConst cdoSendUsingPort = 2StrSmartHost = "#"set iMsg = CreateObject("CDO.Message")set iConf = CreateObject("CDO.Configuration")Set Flds = iConf.Fields' set the CDOSYS configuration fields to use port 25 on the SMTP serverWith Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSmartHost.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10.UpdateEnd With' Get all variable from frmRegUserProviderName = Request.Form("ProviderName")ProviderType = Request.Form("ProviderType")Address = Request.Form("Address")Address2 = Request.Form("Address2")City = Request.Form("City")State = Request.Form("State")Zipcode = Request.Form("Zipcode")OfficePhone = Request.Form("OfficePhone")YourName = Request.Form("YourName")Address02 = Request.Form("Address02")Address22 = Request.Form("Address22")City2 = Request.Form("City2")State2 = Request.Form("State2")Zipcode2 = Request.Form("Zipcode2")Telephone = Request.Form("Telephone")Email = Request.Form("Email")Member = Request.Form("Member")dim MailSubj MailSubj = "Lead from"' build HTML for message bodyEMailBody = "<HTML>"EMailBody = EMailBody & "<head></head>"EMailBody = EMailBody & "<body>"EMailBody = EMailBody & "Provider Contact Information: " & " "EMailBody = EMailBody & "----------------------------------------------" & " "EMailBody = EMailBody & "-------Practitioner Information--------" & ""EMailBody = EMailBody & "Provider Name: " & ProviderName & " "EMailBody = EMailBody & "Provider Type: " & ProviderType & " "EMailBody = EMailBody & "Address1: " & Address & " "EMailBody = EMailBody & "Address2: " & Address2 & " "EMailBody = EMailBody & "City: " & City & " "EMailBody = EMailBody & "State: " & State & " "EMailBody = EMailBody & "Zip Code: " & Zipcode & " "EMailBody = EMailBody & "Office Phone: " & OfficePhone & " "EMailBody = EMailBody & "----------------------------------------------" & " "EMailBody = EMailBody & " " & ""EMailBody = EMailBody & "-------Contact Information--------" & ""EMailBody = EMailBody & "Name: " & YourName & " "EMailBody = EMailBody & "Address1: " & Address02 & " "EMailBody = EMailBody & "Address2: " & Address22 & " "EMailBody = EMailBody & "City: " & City2 & " "EMailBody = EMailBody & "State: " & State2 & " "EMailBody = EMailBody & "Zip Code: " & Zipcode2 & " "EMailBody = EMailBody & "Phone Number: " & Telephone & " "EMailBody = EMailBody & "E-Mail: " & Email & " "EMailBody = EMailBody & "Are you a current member: " & Member & " "EMailBody = EMailBody & "----------------------------------------------" & " "EMailBody = EMailBody & " " & ""EMailBody = EMailBody & "Lead from" & " "EMailBody = EMailBody & "</body>"EMailBody = EMailBody & "</html>"' correct' apply the settings to the messageWith iMsgSet .Configuration = iConf.To = "#".From = Email.Subject = MailSubj.HTMLBody = EMailBody'.AddAttachment "C:\activity.pdf".SendEnd With' cleanup of variablesSet iMsg = NothingSet iConf = NothingSet Flds = Nothing' if not cdoEmail.Send then' MailMsg = "EMail Notification FAILED!Please go back and Submit the form again.Err="""' else' MailMsg = "EMail Notification successful."' end if%>\[/code\]

ASP form with a thank you page and email

xAbysSx

New Member