<%@ LANGUAGE="VBSCRIPT" %> <% PageStrings = "33, 697, 1017, 1018, 1019, 1020, 1021, 1022, 1023, 1024, 1025, 1026, 1027, 1028, 1029, 1143" %> <% '----------------------------------------------- 'SET PAGETITLE TAG '----------------------------------------------- strPageTitleHTML = GetString("PageTitle_ContactUs") & " | " & GetString("Config_Webshopname") %> <% '=============================================== ' CactuShop ASP Shopping Cart ' ©1999-2004 Cactusoft Ltd. www.cactusoft.com '=============================================== ' All rights reserved. ' Use of this code is covered by the terms and ' conditions in the license agreement. No ' unauthorized duplication or distribution is ' permitted. Cactusoft's copyright notices must ' remain in the ASP sections of the code. '=============================================== '----------------------------------------------- 'CONTACT FORM AND HANDLER '----------------------------------------------- '----------------------------------------------- 'READ PAGE TEMPLATE FROM FILE '----------------------------------------------- Call ReadFromTemplate(strTemplateLocation, aryPageTemplate, strBasketHTML, strCategoryListHTML) '----------------------------------------------- 'WRITE FIRST HALF OF PAGE HTML '----------------------------------------------- response.write(aryPageTemplate(0)) %>

<% If request.form("strCheckSubmit") = "yes" then %> <% Else '----------------------------------------------- 'DISPLAY FORM '----------------------------------------------- %> <% end if %>

<% WriteString("PageTitle_ContactUs") %>

This feature is not available in CactuShop Lite.

<% WriteString("ContentText_YourContactDetails") %> <% WriteString("ContentText_YourName") %> " name="strContactName"> <% WriteString("ContentText_YourEmail") %> " name="strContactEmail"> <% WriteString("ContentText_YourMessageComments") %>

">

<% =Replace(GetString("ContentText_AddressAndPhoneContact"), vbcrlf, " ") %>

<% '----------------------------------------------- 'WRITE LAST HALF OF PAGE HTML '----------------------------------------------- response.write(aryPageTemplate(1)) '----------------------------------------------- 'CLOSE DATA CONNECTIONS '----------------------------------------------- objDataConn.Close set objDataConn = nothing %>