<%
dim sent
sent="no"
sent=request("sent")
firstname=request("firstname")
surname=request("surname")
phone=request("phone")
email=request("email")
message1=request("message1")
if message1="" and sent="yes" then
response.redirect("contactus.asp?sent=no")
end if
'********************* Mail section *********************
' ************************** contact email to Patch Mate ********************
if sent="yes" then
dim frompage, fromemail, toemail, subject, body, admin_email
admin_email="admin@patchmate.com.au"
my_email="sorna@f-i.com.au"
toemail="admin@patchmate.com.au"
'toemail=admin_email
subject="Enquiry from Patch Mate Website"
fromemail="admin@patchmate.com.au"
body="Dear Rachel," & vbcrlf & vbcrlf & "Here are the details of the enquiry." & vbcrlf & vbcrlf & "From: " & firstname & " " & surname & vbcrlf & "Phone: " & phone & vbcrlf & "Email Address: " & email & vbcrlf & "Message: " & message1 & vbcrlf & vbcrlf & "Have a great day," & vbcrlf & vbcrlf & "The Patch Mate Website"
strComments = Request.Form("Comments")
set msg = Server.CreateOBject( "JMail.Message" )
msg.From = fromemail
msg.FromName = "Patchmate Website"
msg.AddRecipient toemail
msg.Subject = subject
msg.Body = body
if not msg.Send("localhost" ) then
Response.write "
" & msg.log & "
"
else
response.write "Thank you " & firstname & " " & surname &".
Your enquiry has been sent.
"
end if
' if err Then
' response.Write err.Description
' Else
' response.write "Thank you " & firstname & " " & surname &".
Your enquiry has been sent.
"
' end if
set objMail=Nothing
else
%>