%
Session.Timeout=1200
Server.ScriptTimeout=60000
EmailBody = " "&_
"
"&_
"Registration Details "&_
" "&_
" "&_
" "&_
" "&_
" | "&_
"
"&_
" "&_
"| Registration Details | "&_
" | "&_
" | "&_
"
"&_
" "&_
" | "&_
"Name : | "&_
" | "&_
""&Request.Form("TheName")&" | "&_
" | "&_
"
"&_
" "&_
" | "&_
"Email Address : | "&_
" | "&_
""&Request.Form("Email")&" | "&_
" | "&_
"
"&_
" "&_
" | "&_
"Cell Number : | "&_
" | "&_
""&Request.Form("Mobile")&" | "&_
" | "&_
"
"&_
" "&_
" | "&_
"Work Address : | "&_
" | "&_
""&Request.Form("Address_Work")&" | "&_
" | "&_
"
"&_
" "&_
" | "&_
"Home Address : | "&_
" | "&_
""&Request.Form("Address_Home")&" | "&_
" | "&_
"
"&_
" "&_
" | "&_
"Routes : | "&_
" | "&_
""&Request.Form("RouteList")&" | "&_
" | "&_
"
"&_
" "&_
" | "&_
"
"&_
"
"&_
" "&_
" "
Sub sendMail1(toWho)
DIM theMail
SET theMail = Server.CreateObject("CDONTS.Newmail")
theMail.MailFormat = 0
theMail.BodyFormat = 0
theMail.From = "Web Registration Bot "
theMail.To = toWho
theMail.Subject = "Jam Alert Registration"
theMail.body = EmailBody
theMail.send
Set theMail=NOTHING
End Sub
sendMail1 "roger@jamalert.co.za"
%>
JAM ALERT!
|
|
 |
|
|
 |
| |
|
|
Thank you for subscribing to JAM ALERT! |
|
| |
| |
|
|
|
|
| |
The following details have been sent:
|
|
| |
Routes:
<%
Response.Write(Request.Form("RouteList") & " ")
%>
Personal Details:
<%
Response.Write(Request.Form("TheName") & " ")
Response.Write(Request.Form("Mobile") & " ")
Response.Write(Request.Form("Email") & " ")
Response.Write(Request.Form("Address_Work") & " ")
Response.Write(Request.Form("Address_Home") & " ")
Response.Write(Request.Form("Credit_Card_Details") & " ")
Response.Write(Request.Form("Expiry_Date") & " ")
%>
|
|
| |
|
|
|
|
|
|
|
|
|
|
| |
JAM ALERT!
©
Copyright 2003. All Rights Reserved |
|
|
|
|
|
 |
|