<%
' Comersus Shopping Cart
' Comersus Open Technologies
' United States
' Software License can be found at License.txt
' http://www.comersus.com
' Details: show store news
%>
<%
on error resume next
dim mySQL, connTemp, rsTempNews
' get settings
pStoreFrontDemoMode = getSettingKey("pStoreFrontDemoMode")
pCurrencySign = getSettingKey("pCurrencySign")
pDecimalSign = getSettingKey("pDecimalSign")
pCompany = getSettingKey("pCompany")
pCompanySlogan = getSettingKey("pCompanySlogan")
pAboutUsLink = getSettingKey("pAboutUsLink")
pStoreLocation = getSettingKey("pStoreLocation")
pAffiliatesStoreFront = getSettingKey("pAffiliatesStoreFront")
pAuctions = getSettingKey("pAuctions")
pNewsLetter = getSettingKey("pNewsLetter")
pSuppliersList = getSettingKey("pSuppliersList")
pAllowNewCustomer = getSettingKey("pAllowNewCustomer")
pRssFeedServer = getSettingKey("pRssFeedServer")
pShowNews = getSettingKey("pShowNews")
call customerTracking("comersus_newsPageExec.asp", request.form)
' gets news
mySQL="SELECT newsDate, newsText FROM storeNews WHERE idStore=" &pIdStore& " ORDER BY idStoreNews DESC"
call getFromDatabase(mySql, rsTempNews, "newsPageExec")
if rsTempNews.eof then
response.redirect "comersus_message.asp?message="&Server.Urlencode(getMsg(302,"No news available"))
end if
%>
<%=getMsg(303,"news at")%> <%=pCompany%>
<%do while not rsTempNews.eof%>
"> <%=rsTempNews("newsDate")%>
<%=rsTempNews("newsText")%>
<%rsTempNews.movenext
loop
%>
<%call closeDb()%>