<%
' 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: view item details, increase visits
%>
<%
on error resume next
dim connTemp, rsTemp, mySql, pIdProduct, pDescription, pPrice, pDetails, pListPrice, pImageUrl, pWeight
' set affiliate
pIdAffiliate=getUserInput(request.querystring("idAffiliate"),4)
if isNumeric(pIdAffiliate)then
session("idAffiliate")= pIdAffiliate
end if
' get settings
pDefaultLanguage = getSettingKey("pDefaultLanguage")
pStoreFrontDemoMode = getSettingKey("pStoreFrontDemoMode")
pCurrencySign = getSettingKey("pCurrencySign")
pDecimalSign = getSettingKey("pDecimalSign")
pCompany = getSettingKey("pCompany")
pCompanyLogo = getSettingKey("pCompanyLogo")
pCurrencyConversion = getSettingKey("pCurrencyConversion")
pShowBtoBPrice = getSettingKey("pShowBtoBPrice")
pShowStockView = getSettingKey("pShowStockView")
pProductReviews = getSettingKey("pProductReviews")
pNoStockAvoidAdding = getSettingKey("pNoStockAvoidAdding")
pEmailToFriend = getSettingKey("pEmailToFriend")
pWishList = getSettingKey("pWishList")
pStoreNews = getSettingKey("pStoreNews")
pRelatedProducts = getSettingKey("pRelatedProducts")
pNewsLetter = getSettingKey("pNewsLetter")
pAuctions = getSettingKey("pAuctions")
pGetRelatedProductsLimit= getSettingKey("pGetRelatedProductsLimit")
pIdProduct = getUserInput(request.queryString("idProduct"),10)
if trim(pIdProduct)="" or IsNumeric(pIdProduct)=false then
response.redirect "message.asp?message="&Server.Urlencode(dictLanguage.Item(Session("language")&"_viewitem_1") )
end if
pIdCustomer = getSessionVariable("idCustomer",0)
pIdCustomerType = getSessionVariable("idCustomerType",1)
' increase visits to the product
mySQL="UPDATE products SET visits=visits+1 WHERE idProduct="& pIdProduct
call updateDatabase(mySQL, rsTemp, "ViewItem")
' check for discount per quantity
mySQL="SELECT idDiscountperquantity FROM discountsperquantity WHERE idProduct=" &pIdProduct
call getFromDatabase (mySql, rsTemp, "ViewItem")
if not rstemp.eof then
pDiscountPerQuantity=-1
else
pDiscountPerQuantity=0
end if
' check for auctions
mySQL="SELECT idAuction FROM auctions WHERE active=-1 AND idProduct=" &pIdProduct
call getFromDatabase (mySql, rsTemp, "ViewItem")
if not rstemp.eof then
pAuctionAvailable=-1
pIdAuction=rstemp("idAuction")
else
pAuctionAvailable=0
end if
' gets item details from db
mySQL="SELECT description, price, bToBprice, details, listprice, imageurl, stock, sku, formQuantity, hasPersonalization FROM products WHERE idProduct=" &pidProduct& " AND active=-1"
call getFromDatabase (mySql, rsTemp, "ViewItem")
if rsTemp.eof then
response.redirect "message.asp?message="&Server.Urlencode(dictLanguage.Item(Session("language")&"_viewitem_2") )
end if
pDescription = rsTemp("description")
pPrice = rsTemp("price")
pBtoBPrice = rsTemp("bToBPrice")
pDetails = rsTemp("details")
pListPrice = rsTemp("listPrice")
pimageUrl = rsTemp("imageUrl")
pStock = rsTemp("stock")
pSku = rsTemp("sku")
pFormQuantity = rsTemp("formQuantity")
pHasPersonalization = rsTemp("hasPersonalization")
switchProductsLanguage session("language"), pIdProduct, pDetails, pDescription
' special price flag
pSpecialPrice=0
' change prices depending on special prices asigned
switchSpecialPrice pIdCustomer, pIdProduct, pPrice, pBtoBPrice, pSpecialPrice
%>
<%
call closeDb()
set pIdproduct = Nothing
set pDescription = Nothing
set pDetails = Nothing
set pListPrice = Nothing
set pImageUrl = Nothing
set pWeight = Nothing
' ****************************** get Optionals
' new get Optionals
Function getOptionsGroups(idProduct)
dim rstemp2, rstemp3, optionsGroupsCounter
optionsGroupsCounter=0
' get optionsGroups assigned
mySQL="SELECT optionsGroups_products.idOptionGroup FROM products, optionsGroups_products WHERE products.idProduct=" &idProduct &" AND products.idProduct=optionsGroups_products.idProduct"
call getFromDatabase (mySql, rsTemp2, "ViewItem")
' iterate through optionsGroups
do while not rstemp2.eof
pIdOptionGroup=rstemp2("idOptionGroup")
' get options inside current optionGroup
mySQL="SELECT options.priceToAdd, options.optionDescrip, options.idOption, optionsGroups.optionGroupDesc FROM optionsGroups, options_optionsGroups, options WHERE optionsGroups.idOptionGroup=" &pIdOptionGroup& " AND optionsGroups.idOptionGroup=options_optionsGroups.idOptionGroup AND options.idOption=options_optionsGroups.idOption"
call getFromDatabase (mySql, rsTemp3, "ViewItem")
if not rstemp3.eof then
optionsGroupsCounter=optionsGroupsCounter+1
response.write " "
end if
rstemp2.movenext
loop
response.write ""
end function
%>