<%
' Comersus Shopping Cart
' Comersus Open Technologies
' United States
' Software License can be found at License.txt
' http://www.comersus.com
' Details: send an email to a admin of the store
%>
<%
on error resume next
dim mySQL, connTemp, rsTemp
' get settings
pStoreFrontDemoMode = getSettingKey("pStoreFrontDemoMode")
pCurrencySign = getSettingKey("pCurrencySign")
pDecimalSign = getSettingKey("pDecimalSign")
pCompany = getSettingKey("pCompany")
pCompanySlogan = getSettingKey("pCompanySlogan")
pStoreLocation = getSettingKey("pStoreLocation")
pHeaderKeywords = getSettingKey("pHeaderKeywords")
pAuctions = getSettingKey("pAuctions")
pAllowNewCustomer = getSettingKey("pAllowNewCustomer")
pNewsLetter = getSettingKey("pNewsLetter")
pStoreNews = getSettingKey("pStoreNews")
pSuppliersList = getSettingKey("pSuppliersList")
pOrderPrefix = getSettingKey("pOrderPrefix")
pIdCustomer = getSessionVariable("idCustomer",0)
' get personal info
mySQL="SELECT name, lastName, email, phone FROM customers WHERE idCustomer=" &pIdCustomer
call getFromDatabase(mySQL, rsTemp, "representativeStore")
if not rstemp.eof then
pName =rstemp("name") & " " & rstemp("lastName")
pPhone =rstemp("phone")
pEmail =rstemp("email")
end if
mySQL="SELECT MAX(idOrder) AS maxIdOrder FROM orders WHERE idCustomer=" &pIdCustomer
call getFromDatabase(mySQL, rsTemp, "representativeStore")
pIdOrder=rstemp("maxIdOrder")
%>