<% Dim aErrors, bShowForm 'default to showing the form bShowForm = 1 'if we have a form post if len(request.form("formpost")) > 0 then 'do error checking (ie: make sure we have an email, a name and a comment if len(request.form("username")) < 1 then aErrors = addErrorMessage(aErrors, LangDict.Item("ErrorName")) end if if len(request.form("email")) < 1 or bIsEmail(request.form("email")) = False then aErrors = addErrorMessage(aErrors, LangDict.Item("ErrorEmail")) end if if len(request.form("subject")) < 1 then aErrors = addErrorMessage(aErrors, LangDict.Item("ErrorSubject")) end if if len(request.form("country")) < 1 then aErrors = addErrorMessage(aErrors, LangDict.Item("ErrorCountry")) end if if len(request.form("comment")) < 1 then aErrors = addErrorMessage(aErrors, LangDict.Item("ErrorComment")) end if 'if no errors, send the message, turn off form, show a confirmation if len(aErrors) = 0 then 'compose the email strBody = "Name: " & request.form("username") & vbcrlf strBody = strBody & "Address: " & XSSSafe(request.form("addr")) & vbcrlf strBody = strBody & "City: " & XSSSafe(request.form("city")) & vbcrlf 'strBody = strBody & "State: " & XSSSafe(request.form("state")) & vbcrlf strBody = strBody & "Zip: " & XSSSafe(request.form("zip")) & vbcrlf strBody = strBody & "Country: " & XSSSafe(request.form("country")) & vbcrlf strBody = strBody & "Email: " & XSSSafe(request.form("email")) & vbcrlf & vbcrlf strBody = strBody & "Subject: " & XSSSafe(request.form("subject")) & vbcrlf & vbcrlf strBody = strBody & XSSSafe(request.form("comment")) 'send email audrey_yeong@acushnetgolf.com Call sendEmail(XSSSafe(request.form("username")),XSSSafe(request.form("email")),"FJ Consumer",Application("email_customerservice"),XSSSafe(request.form("subject")),strBody, false) 'show a confirmation message Call object(36,"","", "content", "display") response.write("

") 'turn off the form bShowForm = 0 end if end if 'otherwise, show the form if bShowForm then %> <% Call object(12,"","", "content", "display") %> <% Call displayErrors(aErrors) %>

" onKeyPress="if(event.keyCode==13) this.submit()">

<%= LangDict.Item("RequiredFieldLegend") %>

Contact Us

<%= LangDict.Item("Name") %> * " maxlength="55"/>

<%= LangDict.Item("Address") %> " maxlength="55"/>

<%= LangDict.Item("City") %> " maxlength="55"/>

<%= LangDict.Item("PostalCode") %> " maxlength="15"/>

<%= LangDict.Item("Email") %> * " maxlength="55" />

<%= LangDict.Item("Subject") %> * " maxlength="55"/>

<%= LangDict.Item("Country") %> * " maxlength="55" />

<%= LangDict.Item("Comments") %> * <%= XSSSafe(request.form("comment")) %>

<%= LangDict.Item("Submit") %>

<% end if %>