%Option Explicit%> <% Dim szAction szAction = Request.Form("hAction") if szAction = "MAIL" then Dim title Dim clientname Dim friendName Dim contactNumber Dim contactPhone Dim email Dim timeToTalk Dim message Dim clientContact title = Request.form("title") contactNumber = Request.form("cellphoneCode") & " " & Request.form("cellNumber") contactPhone = Request.form("phoneCode") & " " & Request.form("phoneNumber") clientname = request.form("yName") friendName = request.form("friendName") email = request.form("emailAddress") timeToTalk = request.form("talkTime") clientContact = request.form("yContactNumber") 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 you to contact my friend, " & title & " " & friendName & " on " & vbCrLf & "Phone: " & contactNumber & " OR " & contactPhone & vbCrLf & "or via Email: " & email & vbCrLf & "in order for them to access your expertise. I prefer you contact them " & timeToTalk & vbCrLf & "Best Regards " & vbCrLf & clientName & " " & clientContact) 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 %>
newsletter | frequently asked questions | news | contact us | site map | refer a friend | quick search
|
![]() ![]() Donald Trump (The Apprentice-Your'e Fired) ... best Real Estate advice I ever received... |
|
|