%
' Comersus Shopping Cart
' Comersus Open Technologies
' United States
' Software License can be found at License.txt
' http://www.comersus.com
' Details: prints a custom message with store header and footer
%>
<%
on error resume next
dim connTemp, rsTemp, mySql
' get settings
pStoreFrontDemoMode = getSettingKey("pStoreFrontDemoMode")
pCurrencySign = getSettingKey("pCurrencySign")
pDecimalSign = getSettingKey("pDecimalSign")
pCompany = getSettingKey("pCompany")
pCompanySlogan = getSettingKey("pCompanySlogan")
pHeaderKeywords = getSettingKey("pHeaderKeywords")
pAuctions = getSettingKey("pAuctions")
pSuppliersList = getSettingKey("pSuppliersList")
pNewsLetter = getSettingKey("pNewsLetter")
pAffiliatesStoreFront = getSettingKey("pAffiliatesStoreFront")
pAllowNewCustomer = getSettingKey("pAllowNewCustomer")
pRssFeedServer = getSettingKey("pRssFeedServer")
pShowNews = getSettingKey("pShowNews")
' session
pIdCustomer = getSessionVariable("idCustomer",0)
pIdCustomerType = getSessionVariable("idCustomerType",1)
pMessage = getUserInput(request.querystring("message"),3000)
%>
<%=getMsg(581,"attention")%>
<%=pMessage%>
<%call closeDb()%>