<%
' 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: if cart is not empty get orderform screen for first buy
%>

<!--#include file="../includes/settings.asp"--> 
<!--#include file="../includes/languages.asp"-->
<!--#include file="../includes/getSettingKey.asp"--> 
<!--#include file="../includes/sessionFunctions.asp"--> 
<!--#include file="../includes/databaseFunctions.asp"--> 
<!--#include file="../includes/cartFunctions.asp"--> 
<!--#include file="../includes/currencyFormat.asp"--> 
<!--#include file="../includes/validateForm.asp" --> 
<!--#include file="../includes/rc4.asp" --> 
<!--#include file="../includes/sessionFunctions.asp"-->

<%
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")

pAuctions		= getSettingKey("pAuctions")
pListBestSellers 	= getSettingKey("pListBestSellers")
pNewsLetter 		= getSettingKey("pNewsLetter")
pPriceList 		= getSettingKey("pPriceList")
pStoreNews 		= getSettingKey("pStoreNews")
pOneStepCheckout	= getSettingKey("pOneStepCheckout")
pUseShippingAddress	= getSettingKey("pUseShippingAddress")
pRandomPassword		= getSettingKey("pRandomPassword")
pUseVatNumber		= getSettingKey("pUseVatNumber")

pIdDbSession	 = checkSessionData()
pIdDbSessionCart = checkDbSessionCartOpen()

session("idCustomer") 	= Cint(0)

if countCartRows(pIdDbSessionCart)=0 then
 response.redirect "message.asp?message="&Server.Urlencode(dictLanguage.Item(Session("language")&"_formfirstbuy_1") ) 
end if

%>
<!--#include file="orderForm.asp"-->