Feedback

Please fill in the form below to email us your feedback:

<% '---------------------------- FORM SETTINGS -------------------------------- ' Version 1.1 - 11 Dec 03 - Fixed Bug: Not ordering fields ' -------------------------------------------------------------------------- Dim WebSiteName, SendEmailTo, EmailSubject, EmailFromName, EmailFrom Dim sSubmitHTMLTable, sHTMLCell1, sHTMLCell2,sHTMLCell3,sHTMLEndTable SendEmailTo = "info@superyachtbase.com" EMailSubject = "Site Feedback form submission" EMailFromName = "superyachtbase.com Site" EmailFrom = "noreply@superyachtbase.com" ' Get web site name from header WebSiteName = Request.ServerVariables("HTTP_HOST") sSubmitHTMLTable = "" & _ "

" & _ "" & _ "" & chr(10) & chr(13) sHTMLCell1 = "" sHTMLEndTable = "

" & _ "submission details
" sHTMLCell2 = "	" sHTMLCell3 = "

" Function MakeEmailHTML Dim Key, s,x s= sSubmitHTMLTable for x = 1 to Request.Form.count() Key = Request.Form.key(x) if (lcase(Key) <> "submit") and (lcase(Key) <> "sendemail") and (Request.Form.item(x) <> "") then s=s & sHTMLCell1 & Key & sHTMLCell2 & Request.Form.item(x) & sHTMLCell3 & chr(10) & chr(13) end if Next s=s & sHTMLCell1 & "IP Address" & sHTMLCell2 & Request.ServerVariables("REMOTE_HOST") & sHTMLCell3 & chr(10) & chr(13) s=s & sHTMLEndTable MakeEmailHTML = s End Function '---------------------------- FORM SETTINGS -------------------------------- %> <%if Request.Form("sendemail") = "" then%>

" onSubmit="return checkFields();">

Name:	* required
Email:	*
Phone:
Postal Address:
Suburb	*
Postcode:	*
Country
Message:

Please contact me by: email phone

<%else SendEmail Request.Form("name"), _ Request.Form("email"), _ SendEmailTo, _ EMailSubject, _ MakeEmailHTML %>

Thank you.
Your submission was successful.
We will contact you shortly.

<%end if%>