<% If Request.QueryString = "Submit" Then
Dim objMailer
Set objMailer = Server.CreateObject("Dundas.Mailer")
objMailer.SMTPRelayServers.Add "72.18.131.128", 2525
objMailer.TOs.Add "steve@islandwebdesign.com.au"
objMailer.FromAddress = Request.Form("MailTo")
objMailer.Subject = "Enquiry from Website"
objMailer.HTMLBody = "
Customer Enquiry
From:
" objMailer.HTMLBody = objMailer.HTMLBody & Request.Form("yourname") objMailer.HTMLBody = objMailer.HTMLBody & "eMail:
" objMailer.HTMLBody = objMailer.HTMLBody & Request.Form("MailTo") objMailer.HTMLBody = objMailer.HTMLBody & "Company:
" objMailer.HTMLBody = objMailer.HTMLBody & Request.Form("companyName") objMailer.HTMLBody = objMailer.HTMLBody & "Address:
" objMailer.HTMLBody = objMailer.HTMLBody & Request.Form("address") objMailer.HTMLBody = objMailer.HTMLBody & "City:
" objMailer.HTMLBody = objMailer.HTMLBody & Request.Form("city") objMailer.HTMLBody = objMailer.HTMLBody & "State:
" objMailer.HTMLBody = objMailer.HTMLBody & Request.Form("state") objMailer.HTMLBody = objMailer.HTMLBody & "Postcode:
" objMailer.HTMLBody = objMailer.HTMLBody & Request.Form("postcode") objMailer.HTMLBody = objMailer.HTMLBody & "Country:
" objMailer.HTMLBody = objMailer.HTMLBody & Request.Form("country") objMailer.HTMLBody = objMailer.HTMLBody & "Phone:
" objMailer.HTMLBody = objMailer.HTMLBody & Request.Form("phone") objMailer.HTMLBody = objMailer.HTMLBody & "Mobile:
" objMailer.HTMLBody = objMailer.HTMLBody & Request.Form("mobile") objMailer.HTMLBody = objMailer.HTMLBody & "Fax:
" objMailer.HTMLBody = objMailer.HTMLBody & Request.Form("fax") objMailer.HTMLBody = objMailer.HTMLBody & "Message:
" objMailer.HTMLBody = objMailer.HTMLBody & Request.Form("comments") objMailer.HTMLBody = objMailer.HTMLBody & "" On Error Resume Next ObjMailer.SendMail If Err <> 0 Then Response.Write "Error encountered: " & Err.Description Else %>Thank You
Thanks for filling in the contact form. We usually respond to all emails within 24 hours.
In the meantime, please feel free to continue browsing this site.
<%End If Set ObjMailer = nothing %> <% Else %>