<% 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
%>
Downloads - Vinasoft Desktop Lock
