<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% if Request.QueryString("sent") = "yes" then Dim objCDO Set objCDO = Server.CreateObject("CDO.Message") Dim objCDOConf Set objCDOConf = Server.CreateObject("CDO.Configuration") With objCDOConf.Fields .Item(cdoSendUsingMethod) = 2 .Item(cdoSMTPServer) = "mail-fwd" .Item(cdoSMTPServerPort) = 25 .Item(cdoSMTPconnectiontimeout) = 10 .Update End With Set objCDO.Configuration = objCDOConf ' Be sure to use a valid email addresses below: objCDO.From = "shane@evrsafe.com" objCDO.To = "shane@evrsafe.com" ' objCDO.CC = "dan@bigwigadvertising.com.au" objCDO.Subject = "Distributor Enquiry from Website" objCDO.TextBody = objCDO.TextBody & "Name: " objCDO.TextBody = objCDO.TextBody & Request.Form("name") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Company: " objCDO.TextBody = objCDO.TextBody & Request.Form("company") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Address: " objCDO.TextBody = objCDO.TextBody & Request.Form("address")&" "&Request.Form("city") & Request.Form("state")&" "&Request.Form("postcode") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Country: " objCDO.TextBody = objCDO.TextBody & Request.Form("country") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Contact Phone: " objCDO.TextBody = objCDO.TextBody & Request.Form("phone") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "E-mail: " objCDO.TextBody = objCDO.TextBody & Request.Form("email") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Website: " objCDO.TextBody = objCDO.TextBody & Request.Form("website") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Region of Operations: " objCDO.TextBody = objCDO.TextBody & Request.Form("operation") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Technical Marine Equipment Carried: " objCDO.TextBody = objCDO.TextBody & Request.Form("equipment") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Comments: " objCDO.TextBody = objCDO.TextBody & Request.Form("comments") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.Send 'Clean-up Set objCDO = Nothing Set objCDOConf = Nothing dim emailMessage emailMessage = "sent" end if %> <%pageName = "BECOME A DISTRIBUTOR"%>

<%=pageName%><%if emailMessage = "sent" then Response.Write(": Thank you, your message has been sent!") end if %>