CONTACT > Send us an Email
<% task = request("task") cType = request("comType") if task = "postit" Then fName = trim(request("firstName")) sName = trim(request("surName")) telNo = trim(request("telNo")) eMail = trim(request("eMail")) msg = trim(request("message")) msgStr = "Mail from the Bench Marks Foundation Website" msgStr = msgStr & "" msgStr = msgStr & "
" msgStr = msgStr & "" msgStr = msgStr & "" msgStr = msgStr & "" msgStr = msgStr & "" msgStr = msgStr & "
" & uCase(fName) & " " & uCase(sName) & "Tel:" & telNo & "
Email:" & email & "
has posted the following " & cType & "...

""" & msg & """
" msgStr = replace(msgStr, chr(13), "
") ''''''scrStr = replace(msgStr, "bgcolor='#DCDFE2'","bgcolor='#FFFFFF'") scrStr = replace(msgStr, "border='0' bgcolor='#FFFFFF'","border='0' bgcolor='#FFFFFF' style='border: 1px dashed navy; width:450px;'") Dim mymail set mymail = createobject("CDO.Message") mymail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 mymail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.server.co.za" 'change to the available smtp server mymail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'or actual port configured for smtp mymail.Configuration.Fields.Update mymail.to = "info@bench-marks.org.za" mymail.from = email ''''''mymail.cc = "" mymail.bcc = email mymail.subject = uCase(cType) & " from Bench Marks Website" mymail.HTMLbody = msgStr ''''''mymail.AddAttachment server.mappath("/path_to_attachment/file.ext") mymail.send set mymail=nothing 'Set Jmail = Server.CreateObject("Jmail.Message") 'JMail.Logging = True 'JMail.Silent = True 'JMail.From = email 'JMail.FromName = fName & " " & sName 'Jmail.Subject = uCase(cType) & " from Bench Marks Website" 'JMail.AddRecipient "clmarais@gmail.com" 'JMail.AddRecipientBCC email 'JMail.ContentType = "text/html" 'JMail.Body = msgSTR 'JMail.Send("smtp.iburst.co.za") '''''''''' LOCAL SERVER '''''''''' 'JMail.Send("196.44.91.25:11") '''''''''' REMOTE SERVER '''''''''' 'IF NOT JMail.Send("196.44.91.25:25") THEN ' Response.write "
" & JMail.log & "
" 'ELSE ' Response.write "Message sent succesfully!" 'END IF %>

The Bench Marks Foundation thanks you for your valued communication, we shall endeavour to respond promptly. Should you not receive a response, please call us on +27 11 832-1743/2

For your convenience, a summary of your communication is reproduced below and a copy,for your personal records, will have been transmitted to the email address supplied...

<%=scrStr%>

 
 
<% else %>
Please complete all of the details requested in the form below and, when you have finished, click the "Post Now" button to forward your email directly to the Bench Marks Foundation...

Nature of your Communication:
First Name:
Surname:
Email Address:
Telephone:
Your Message
     
<% end if %>