<% ' Comersus 4.2x Sophisticated Cart ' Developed by Rodrigo S. Alhadeff ' Dic-2002 ' Open Source License can be found at License.txt ' http://www.comersus.com ' Details: verifies if cart is empty in order to allow checkout and display first checkout screen %> <% on error resume next dim mySQL, connTemp, rsTemp, f, cont ' get settings pDefaultLanguage = getSettingKey("pDefaultLanguage") pStoreFrontDemoMode = getSettingKey("pStoreFrontDemoMode") pCurrencySign = getSettingKey("pCurrencySign") pDecimalSign = getSettingKey("pDecimalSign") pCompany = getSettingKey("pCompany") pCompanyLogo = getSettingKey("pCompanyLogo") pMinimumPurchase = getSettingKey("pMinimumPurchase") pAllowNewCustomer = getSettingKey("pAllowNewCustomer") pForgotPassword = getSettingKey("pForgotPassword") pStoreClosed = getSettingKey("pStoreClosed") ' if the store is closed it will not allow checkout if pStoreClosed="-1" then response.redirect "message.asp?message="&Server.Urlencode(dictLanguage.Item(Session("language")&"_checkout_11")) end if pIdDbSession = checkSessionData() pIdDbSessionCart = checkDbSessionCartOpen() if countCartRows(pIdDbSessionCart)=0 then response.redirect "message.asp?message="&Server.Urlencode(dictLanguage.Item(Session("language")&"_checkout_1") ) end if if Cdbl(calculateCartTotal(pIdDbSessionCart))0 then response.redirect "login.asp" end if %>

<%=dictLanguage.Item(Session("language")&"_checkout_7")%> <%if pAllowNewCustomer="-1" then%>

<%=dictLanguage.Item(Session("language")&"_checkout_2")%> <%=dictLanguage.Item(Session("language")&"_checkout_3")%>

<%end if%>

<%=dictLanguage.Item(Session("language")&"_checkout_4")%>

<%call closeDb()%>

<%=dictLanguage.Item(Session("language")&"_checkout_8")%>	<%if pStoreFrontDemoMode="-1" then%> <%else%> <%end if%>
<%=dictLanguage.Item(Session("language")&"_checkout_9")%>	<%if pStoreFrontDemoMode="-1" then%> <%else%> <%end if%> <%if pForgotPassword="-1" then%> <%=dictLanguage.Item(Session("language")&"_checkout_6")%> <%end if%>
">