%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
sMessage=""
Dim objMail
if not isEmpty(Request.Form("Submit")) then
if ( Request.Form("name") = "") then
sMessage="Error! You need to enter your full name."
ElseIf Request.Form("email") = "" then
sMessage="Error! You need to enter your valid email address."
Else
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = "sales@chatroomsnooper.com"
objMail.To = "sales@chatroomsnooper.com"
objMail.subject = "Desktop Snooper Download"
sBody = "Name: " & Request.Form("name") & vbCr & "Email address: " & Request.Form("email")& vbCr
objMail.Body = sBody '& "Email Permission: " & Request.Form("EmailPermission")
objMail.Send
Set objMail = Nothing
Response.Redirect("Completedownload.asp")
end if
else sMessage = ""
end if
%>
Please enter your name and email address.
Press submit and you will be taken to our download
page.
Our privacy policy
We use your information to provide you with services, knowledge, and updates. We will not sell your personal contact information. If you do not want us to email you further, simply respond with a request for removal. You will receive no further emails.