<% '************************************************************************************ '* * '* MODIFICATION TO THIS SCRIPT OR ANY FILES INCLUDED WITH * '* ONEWORLDSTOREFRONT IS DONE AT YOUR OWN RISK! * '* Product : OneWorldStoreFront * '* Copyright: Copyright (C) 2004 OneWorldStoreFront.Com * '* Registration Number: 1024507 * '* http://strategis.ic.gc.ca/ * '* * '************************************************************************************ Dim sEmailResponse, sFullLetter, sAction, sError, sSuccess Dim sDescription, sName, sType, sEmail '************************************************************************************ '* * '* * '* * '************************************************************************************ Sub ActionSubroutine() %>

<%=LANG_DT( "CONTACT_US_HEAD", "Contact Us" )%> <% sAction = Trim(Request("sAction")) If ( sAction = "Contact" ) Then sError = "" sEmail = Trim(Request("sEmail")) sDescription = Trim(Request("sDescription")) sName = Trim(Request("sName")) sType = Trim(Request("sType")) If ( sDescription = "" ) Then sError = LANG_DT( "CONTACT_US_ENTERCOMMENT", "Please Write a Comment or a Question" ) Else If ( Len(sEmail) = 0 ) Then sEmail = LANG_DT( "CONTACT_US_ENTEREMAIL", "Please enter your email address." ) End If If ( InStr(sEmail, "@") < InStrRev(sEmail, ".") ) And ( InStr(sEmail, "@") > 0 ) Then sFullLetter = LANG_DT( "CONTACT_US_NEWREQUEST1", "New Customer Support Request." ) & VbCrlf sFullLetter = sFullLetter & VbCrlf sFullLetter = sFullLetter & LANG_DT( "CONTACT_US_NEWREQUEST2", "Email: " ) & sEmail sFullLetter = sFullLetter & VbCrlf & VbCrlf sFullLetter = sFullLetter & LANG_DT( "CONTACT_US_NEWREQUEST3", "Inquiry type: " ) & sType & VbCrlf & VbCrlf sFullLetter = sFullLetter & LANG_DT( "CONTACT_US_NEWREQUEST4", "Comment or Question: " ) & VbCrlf sFullLetter = sFullLetter & sDescription sEmailResponse = sendMail(sOWCompany, sOWEmailSender, sOWEmailAdmin, "Support Inquiry", sFullLetter) if ( sEmailResponse = TRUE ) then sSuccess = LANG_DT( "CONTACT_US_SENTSUCCESSFULLY", "Your Message Has Been Sent to Support. You Should anticipate a Reply Within the Next 24 to 48 Hours." ) else sError = LANG_DT( "CONTACT_US_ERRORSENDING", "Unable to send message to Support! Please contact the administrator as soon as possible." ) & " Error: " & sEmailResponse end if Else sError = LANG_DT( "CONTACT_US_INVALIDEMAIL", "Unrecognizable email address. Please enter another email address before submitting your request." ) & " " & Server.HTMLEncode(sEmail) & " - " & LANG_DT( "CONTACT_US_INVALIDEMAIL2", "is Not a Valid Email Address." ) End If End If End If If ( sError <> "" ) And ( sAction <> "" ) Then Call owMessage(sError, C_ERROR) Call WriteForm() End If If ( sSuccess <> "" ) Then Call owMessage(sSuccess, C_SUCCESS) End If If ( sAction = "" ) Then Call WriteForm() End If %>

<% End Sub '************************************************************************************ '************************************************************************************ '* * '* This is the function to write out the form. * '* * '************************************************************************************ Sub WriteForm() sOWCompany = owCONFIG_ReturnConfigValue("sOWCompany") sOWCompanyAddress = owCONFIG_ReturnConfigValue("sOWCompanyAddress") sOWCompanyStateCode = owCONFIG_ReturnConfigValue("sOWCompanyStateCode") sOWCompanyCity = owCONFIG_ReturnConfigValue("sOWCompanyCity") sOWCompanyZip = owCONFIG_ReturnConfigValue("sOWCompanyZip") sOWCompanyCountryCode = owCONFIG_ReturnConfigValue("sOWCompanyCountryCode") sOWCompanyPhone = owCONFIG_ReturnConfigValue("sOWCompanyPhone") %> <%=sOWCompany%>

<%=sOWCompanyAddress%>
<%=sOWCompanyStateCode%> - <%=sOWCompanyCity%> (<%=sOWCompanyZip%>)
<%=sOWCompanyCountryCode%>
<%=LANG_DT( "CONTACT_US_PHNUM", "Phone Number" )%>:   <%=sOWCompanyPhone%>
<%=LANG_DT( "CONTACT_US_EMAIL", "Email Address" )%>: <%=sOWEmailAdmin%>

<%=LANG_DT( "CONTACT_US_YOURNAME", "Your Name" )%>:
*<%=LANG_DT( "CONTACT_US_YOUREMAIL", "Your Email" )%>:
<%=LANG_DT( "CONTACT_US_INQUIRY", "Inquiry Type" )%>:	"><%=LANG_DT( "CONTACT_US_SELECT", "Please Select" )%> "><%=LANG_DT( "CONTACT_US_CART", "Cart" )%> "><%=LANG_DT( "CONTACT_US_PRODS", "Products" )%> "><%=LANG_DT( "CONTACT_US_WEBSITE", "Website" )%> "><%=LANG_DT( "CONTACT_US_OTHER", "Other" )%>
*<%=LANG_DT( "CONTACT_US_YOURCOMMENTS", "Comment or Question" )%>:	<%=Server.HTMLEncode(sDescription)%>
* <%=LANG_DT( "CONTACT_US_REQUIRED", "Required fields" )%>

<% End Sub '************************************************************************************ %>