%
if request("dosend") = "1" then
set objCDO = Server.CreateObject("CDONTS.NewMail")
UserName = request("txtName")
UserPostal = request("txtPostal")
UserPhone = request("txtPhone")
UserEmail = request("txtEmail")
UserDate = request("txtDate")
txtDetails = request("txtDetails")
SendToAddress = "willieh@potch.co.za"
MessageSubject = "Applied for an Erf"
objCDO.To = SendToAddress
objCDO.From = UserEmail
objCDO.bcc = "heinrichh@vesta.co.za"
objCDO.MailFormat = 0
objCDO.BodyFormat = 0
objCDO.Subject = MessageSubject
MessageBody = UserName & " has applied for an erf via the Potchefstroom website
The details are as follows :
Name : " & UserName & "
Postal Address : " & UserPostal & "
Phone Number : " & UserPhone & "
Email : " & UserEmail & "
Date :" & UserDate & "
Application Details :" & txtDetails
objCDO.Body = MessageBody
objCDO.Send
end if
%>
|
|||||||||||||||||||||||||||||||||||||||||||||||||