<% DIM StrEmail, StrName, StrNumber, StrSubject, StrMessage, StrMsgHeader StrEmail = request.form("email") StrName = request.form("name") StrNumber = request.form("number") StrSubject = request.form("subject") StrMessage = request.form("message") Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "mail.mydomain.com.au"; Mail.From = "me@mydomain.com.au" Mail.AddAddress "you@yourdomain.com.au" Mail.Subject = "Enquiry Request Form" Mail.Body = strMsgHeader & "Email: " & StrEmail & vbCrLf & vbCrLf & _ "Full Name : " & vbCrLf & StrName & vbCrLf & vbCrLf & _ "Phone Number : "; & vbCrLf & StrNumber & vbCrLf & vbCrLf & _ "Subject : " & vbCrLf & StrSubject & vbCrLf & vbCrLf & vbCrLf & _ "Message: " & vbCrLf & StrMessage On Error Resume Next Mail.Send Set Mail = Nothing IF Err <> 0 THEN Response.Write "There has been an error and your message could not be sent through email." & Err.Description END IF %>
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)