<% 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 %>

Contact Us
First Name:		Surname:
Daytime Phone:
Email Address:
Message: