% Option Explicit %> <% 'Declare variables Dim sMsg Dim sTo Dim sFrom Dim sSubject Dim sTextBody Dim sHTMLBody Dim sFirstName Dim sLastName 'Get data from previous page sTo = "info@vinasoftplus.com" sFrom = Request("Email") sSubject = "VDL Download Register" sFirstName = Request("Firstname") sLastName= Request("Lastname") sTextBody = "Firstname: " & sFirstName & vbCrLf & "Lastname: " & sLastName & vbCrLf & "Email: " & sFrom 'sHTMLBody = "" 'Only run this if it's not the first time If Request.Form("Submit") <> "" Then Dim objMail 'Create the mail object Set objMail = Server.CreateObject("CDO.Message") 'Set key properties objMail.From = sFrom objMail.To = sTo objMail.Subject= sSubject objMail.TextBody = sTextBody 'objMail.HTMLBody = sHTMLBody 'Send the email objMail.Send 'Clean-up Set objMail = Nothing Response.Redirect "trialthanks.html" End If %>
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||