| |||||||
|
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 = "
") ''''''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 %>
| ||||||||||||||||||||