<%Option Explicit%>
<%
Dim szAction
szAction = Request.Form("hAction")
if szAction = "MAIL" then
Dim title
Dim clientname
Dim contactNumber
Dim contactPhone
Dim email
Dim timeToTalk
Dim message
title = Request.form("title")
contactNumber = Request.form("cellphoneCode") & " " & Request.form("cellNumber")
contactPhone = Request.form("phoneCode") & " " & Request.form("phoneNumber")
clientname = request.form("firstName")
email = request.form("emailAddress")
timeToTalk = request.QueryString("talkTime")
if timeToTalk = "1" then
timeToTalk = "Office Hours"
else
timeToTalk = "After Hours"
end if
message = ( "I am very interested in your products and services and " & vbCrLf & "would like to be contacted on " & vbCrLf & "Phone: " & contactNumber & " OR " & contactPhone & vbCrLf & "or via Email: " & email & vbCrLf & "in order for me to access your expertise. I prefer to be contacted " & timeToTalk & vbCrLf & "Best Regards " & vbCrLf & clientName)
Dim objJMail
Set objJMail = Server.CreateObject("JMail.SMTPMail")
objJMail.ServerAddress = "localhost:25"
objJMail.AddRecipient "save@abfinfinance.co.za"
objJMail.Sender = email
objJMail.SenderName = clientname
objJMail.AddRecipientCC email
objJMail.Subject = "ABFIN Finance -- Client Contact Request"
objJMail.Body = message
objJMail.Priority = 1
'objJMail.Execute
Set objJMail = Nothing
szAction = "SENT"
end if
%>
ABFIN FINANCE -- Contact Me
