<%
' Comersus Shopping Cart
' Comersus Open Technologies
' United States
' Software License can be found at License.txt
' http://www.comersus.com
' Details: view item details, increase visits
%>

<!--#include file="../includes/screenMessages.asp"-->
<!--#include file="../includes/settings.asp"-->
<!--#include file="../includes/getSettingKey.asp"-->
<!--#include file="../includes/sessionFunctions.asp"-->
<!--#include file="../includes/itemFunctions.asp"-->
<!--#include file="../includes/databaseFunctions.asp"-->
<!--#include file="../includes/currencyFormat.asp"-->
<!--#include file="../includes/stringFunctions.asp"-->
<!--#include file="../includes/customerTracking.asp"-->
<!--#include file="comersus_optCompareWithAm.asp"-->

<% 
on error resume next

dim connTemp, rsTemp, mySql, pIdProduct, pDescription, pPrice, pGST, pApplyGST, pGSTRate, pDetails, pListPrice, pImageUrl, pWeight, pIdProduct2

' get settings.

pStoreFrontDemoMode = getSettingKey("pStoreFrontDemoMode")
pCurrencySign = getSettingKey("pCurrencySign")
pDecimalSign = getSettingKey("pDecimalSign")
pCompany = getSettingKey("pCompany")
pCompanyCountryCode = getSettingKey("pCompanyCountryCode")
pApplyGST = getSettingKey("pGST")
pGSTRate = getSettingKey("pGSTRate")
pCompanySlogan = getSettingKey("pCompanySlogan")
pHeaderKeywords = getSettingKey("pHeaderKeywords")

pMoneyDontRound = getSettingKey("pMoneyDontRound")
pCurrencyConversion = lCase(getSettingKey("pCurrencyConversion"))
pShowBtoBPrice = getSettingKey("pShowBtoBPrice")
pShowStockView = getSettingKey("pShowStockView")
pProductReviews = getSettingKey("pProductReviews")
pUnderStockBehavior = lCase(getSettingKey("pUnderStockBehavior"))

pAuctions = getSettingKey("pAuctions")
pSuppliersList = getSettingKey("pSuppliersList")
pNewsLetter = getSettingKey("pNewsLetter")
pAffiliatesStoreFront = getSettingKey("pAffiliatesStoreFront")
pAllowNewCustomer = getSettingKey("pAllowNewCustomer")
pRssFeedServer = getSettingKey("pRssFeedServer")
pRealTimeShipping = lCase(getSettingKey("pRealTimeShipping"))
pCompareWithAmazon = getSettingKey("pCompareWithAmazon")
pAdSenseClient = getSettingKey("pAdSenseClient")
pShowNews = getSettingKey("pShowNews")

pEmailToFriend = getSettingKey("pEmailToFriend")
pWishList = getSettingKey("pWishList")
pRelatedProducts = getSettingKey("pRelatedProducts")
pGetRelatedProductsLimit = getSettingKey("pGetRelatedProductsLimit")

pProductCustomField1 = getSettingKey("pProductCustomField1")
pProductCustomField2 = getSettingKey("pProductCustomField2")
pProductCustomField3 = getSettingKey("pProductCustomField3")

' session.
pIdCustomer = getSessionVariable("idCustomer",0)
pIdCustomerType = getSessionVariable("idCustomerType",1)

pIdProduct = getUserInput(request.queryString("idProduct"),10)
pImage = getUserInput(request.queryString("image"),2)
pIdAffiliate = getUserInput(request.querystring("idAffiliate"),4)

if pImage = "" then
 pImage = 1
end if

' set affiliate.
if isNumeric(pIdAffiliate) then
 session("idAffiliate") = pIdAffiliate
end if

if trim(pIdProduct) = "" or IsNumeric(pIdProduct) = false then
 response.redirect "comersus_message.asp?message=" & Server.Urlencode(getMsg(17,"Invalid"))
end if

call customerTracking("comersus_viewItem.asp", request.querystring)

' increase visits to the product.
mySQL = "UPDATE products SET visits=visits+1 WHERE idProduct=" & pIdProduct
call updateDatabase(mySQL, rsTemp, "ViewItem")

' redirect to rental screen.
if isRental(pIdProduct) then
 response.redirect "comersus_optRentalEnterInterval.asp?idProduct=" & pIdProduct
end if

' redirect to bundle screen.
if isBundleMain(pIdProduct) then
 response.redirect "comersus_viewItemBundle.asp?idProduct=" & pIdProduct
end if

' redirect to donation screen.
if isDonation(pIdProduct) then
 response.redirect "comersus_viewItemDonation.asp?idProduct=" & pIdProduct
end if

' check for discount per quantity.
pDiscountPerQuantity = itHasDiscountPerQty(pIdProduct)

' check for auctions.
pIdAuction = getIdAuction(pIdProduct)

' get item price.
pPrice = getPrice(pIdProduct, pIdCustomerType, pIdCustomer)

' gets item details from db.
mySQL = "SELECT description, details, gst, listPrice, map, imageUrl, imageUrl2, imageUrl3, imageUrl4, sku, formQuantity, hasPersonalization, freeShipping, isDonation, searchKeywords, user1, user2, user3 FROM products WHERE idProduct=" & pIdProduct & " AND active=-1 AND idStore=" & pIdStore
call getFromDatabase (mySql, rsTemp, "ViewItem")

if rsTemp.eof then
 response.redirect "comersus_message.asp?message=" & Server.Urlencode(getMsg(580,"Cannot get product details. Please contact us to request more information about item " & pIdProduct))
end if

pDescription = rsTemp("description")
pDetails = rsTemp("details")
pGST = rsTemp("gst")
pListPrice = rsTemp("listPrice")
pMapPrice = rsTemp("map")
pImageUrl = rsTemp("imageUrl")
pImageUrl2 = rsTemp("imageUrl2")
pImageUrl3 = rsTemp("imageUrl3")
pImageUrl4 = rsTemp("imageUrl4")
pStock = getStock(pIdProduct)
pSku = rsTemp("sku")
pFormQuantity = rsTemp("formQuantity")
pHasPersonalization = rsTemp("hasPersonalization")
pFreeShipping = rsTemp("freeShipping")
pIsDonation = rsTemp("isDonation")
pSearchKeywords = rsTemp("searchKeywords")
pUser1 = rsTemp("user1")
pUser2 = rsTemp("user2")
pUser3 = rsTemp("user3")

' for meta tags.
pTitle = pDescription & " " & pCurrencySign & money(pPrice)
pMetaDescription = pDescription & " " & pCurrencySign & money(pPrice)
%>

<!--#include file="header.asp"-->

<%if pAdSenseClient <> "0" and checkAvailability() then%>
<script type="text/javascript"><!--
google_ad_client = "<%=pAdSenseClient%>";
google_ad_width = 468;
google_ad_height = 60;
google_ad_format = "468x60_as";
google_color_border = "BBBBBA";
google_color_bg = "FFFFFF";
google_color_link = "333333";
google_color_url = "008000";
google_color_text = "000000";
//--></script>
<script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>
<%end if%>

  <table width="205" cellpadding="5" cellspacing="0">
   <form method="post"action="comersus_addItem.asp" name="additem">
   <input type="hidden" name="idProduct" value="<%=pIdProduct%>">
   <!-- google_ad_section_start -->
   <tr><td colspan="3"><div style="text-align:center"><b><%=pSku & " " & pDescription%></b></div></td></tr>
   <tr><td colspan="3"><%call getImage(pImageUrl, pImageUrl2, pImageUrl3, pImageUrl4, pImage)%></td></tr>
   <tr><td colspan="3"><%=pDetails%></td></tr>
   <tr><td colspan="3"><hr></td></tr>
   <tr>
    <td width="100"><%=getMsg(15,"Price")%></td>
    <td width="5">:</td>
    <%if pMapPrice = "-1" then%>
     <td width="70">[<%=getMsg(745,"add to cart to find out")%>]</td></tr>
    <%else%>
     <td width="70"><div style="text-align:right"><%=pCurrencySign & money(pPrice)%></div></td></tr>
     <%if pCompanyCountryCode = "AU" and pApplyGST = "-1" then%>
      <%if pGST = "-1" then
       pItemGST = pPrice * pGSTRate%>
       <tr>
        <td width="100">GST</td>
        <td width="5">:</td>
        <td width="70"><div style="text-align:right"><%=pCurrencySign & money(pItemGST)%></div></td>
       </tr>
      <%else
       pItemGST = "Exempt"%>
       <tr>
        <td width="100">GST</td>
        <td width="5">:</td>
        <td width="70"><div style="text-align:right"><%=pItemGST%></div></td>
       </tr>
      <%end if%>
     <%end if%>
     <%if pCurrencyConversion="static" then%>
      <tr><td colspan="3"><hr></td></tr>
      <tr><td colspan="3"><a href="comersus_optCurrencyConversion.asp?amount=<%=money(pPrice)%>&returnUrl=comersus_viewItem.asp?idProduct=<%=pIdProduct%>"><%=getMsg(18,"Other cur")%></a></td></tr>
     <%end if%>
     <%if pCurrencyConversion="dynamic" then%>
      <tr><td colspan="3"><hr></td></tr>
      <tr><td colspan="3"><a href="comersus_optCurrencyConversionOnLine.asp?amount=<%=money(pPrice)%>" target="_blank"><%=getMsg(18,"Other cur")%></a></td></tr>
     <%end if%>
     <%if trim(pShowBtoBPrice) = "-1" and pIdCustomerType = 1 and getPrice(pIdProduct, 2, pIdCustomer) > 0 then%>
      <tr><td colspan="3"><hr></td></tr>
      <tr>
       <td width="100"><%=getMsg(151,"Wholesale")%>&nbsp;<%=getMsg(15,"Price")%></td>
       <td width="5">:</td>
       <td width="70"><div style="text-align:right"><%=pCurrencySign & money(getPrice(pIdProduct, 2, pIdCustomer))%></div></td>
      </tr>
     <%end if%>    
     <%if trim(pShowBtoBPrice) = "-1" and pCompanyCountryCode = "AU" and pApplyGST = "-1" then%>
      <%if pGST = "-1" then
       pItemGST = getPrice(pIdProduct, 2, pIdCustomer) * pGSTRate%>
       <tr>
        <td width="100">GST</td>
        <td width="5">:</td>
        <td width="70"><div style="text-align:right"><%=pCurrencySign & money(pItemGST)%></div></td>
       </tr>
      <%else
        pItemGST = "Exempt"%>
        <tr>
         <td width="100">GST</td>
         <td width="5">:</td>
       <td width="70"><div style="text-align:right"><%=pItemGST%></div></td></tr>
      <%end if%>
     <%end if%>
     <%if (pListPrice-pPrice) > 0 then%>
      <tr><td colspan="3"><hr></td></tr>
      <tr><td colspan="3"><%=getMsg(19,"List price")%>&nbsp;<%=pCurrencySign & money(pListPrice)%>
      <%=getMsg(16,"Saving")%>&nbsp;<%=pCurrencySign & money(pListPrice - pPrice)%></td></tr>
     <%end if%>
    <%end if%>
    <%if pShowStockView = "-1" then%>
     <tr><td colspan="3"><hr></td></tr>
     <tr><td colspan="3"><%=getMsg(20,"Stock")%>&nbsp;<%=pStock%></td></tr>
    <%end if%>
    <%if pCompareWithAmazon = "-1" then
     pAmazonPrice = getAmazonPrice(pSku)
     if pAmazonPrice > pPrice then%>
      <tr><td colspan="3"><hr></td></tr>
      <tr><td><%=getMsg(21,"Amazon price")%>&nbsp; $ <%=(pAmazonPrice)%>
      <br><a href="http://www.amazon.com/exec/obidos/ASIN/<%=pSku%>" target="_blank"><%=getMsg(22,"See yself")%></a></td></tr>
     <%end if ' price is better.
    end if%>
    <%if pProductCustomField1 <> "" and pUser1 <> "" then%>
     <tr><td colspan="3"><hr></td></tr>
     <tr><td><%=pProductCustomField1%>: <a href="comersus_listItems.asp?user1=<%=pUser1%>"><%=pUser1%></a></td></tr>
    <%end if%>
    <%if pProductCustomField2 <> "" and pUser2 <> "" then%>
     <tr><td colspan="3"><hr></td></tr>
     <tr><td><%=pProductCustomField2%>: <a href="comersus_listItems.asp?user2=<%=pUser2%>"><%=pUser2%></a></td></tr>
    <%end if%>
    <%if pProductCustomField3 <> "" and pUser3 <> "" then%>
     <tr><td colspan="3"><hr></td></tr>
     <tr><td><%=pProductCustomField3%>: <a href="comersus_listItems.asp?user3=<%=pUser3%>"><%=pUser3%></a></td></tr>
    <%end if%>
    <%if pProductReviews = "-1" then
     pRateReview = getRateReview(pIdProduct)
     if Cdbl(pRateReview) > 0 then%>
      <tr><td colspan="3"><hr></td></tr>
      <tr><td><a href="comersus_optReviewReadExec.asp?idProduct=<%=pIdProduct%> & description=<%=Server.UrlEncode(pDescription)%>"><%=getMsg(23,"Rated")%>&nbsp;<%=round(pRateReview,2)%></a>&nbsp;<img src="images/<%=Cint(pRateReview)%>stars.gif"></td></tr>
     <%else%>
      <tr><td colspan="3"><hr></td></tr>
      <tr><td><a href="comersus_optReviewAddForm.asp?idProduct=<%=pIdProduct%> & description=<%=Server.UrlEncode(pDescription)%>"><%=getMsg(24,"Not rated")%></a></td></tr>
     <%end if%>
    <%end if ' reviews%>
    <%if pHasPersonalization = -1 then%>
     <tr><td colspan="3"><hr></td></tr>
     <tr><td><%=getMsg(25,"Person")%> <input type="text" name="personalizationDesc" size="20" maxlength="150"></td></tr>
    <%end if%>
    <!-- google_ad_section_end -->
    <br><br><%=getOptionsGroups(pIdProduct)%>
    <%if pUnderStockBehavior = "backorder" and Cdbl(pStock) <= 0 then%>
     <%if pIdCustomer > 0 then%>
      <tr><td colspan="3"><hr></td></tr>
      <tr><td><a href="comersus_optAddItemBackorder.asp?idProduct=<%=pIdProduct%>"><%=getMsg(746,"2 backorder")%></a>. <%=getMsg(747,"we will notify...")%></td></tr>
     <%else%>
      <tr><td colspan="3"><hr></td></tr>
      <tr><td><a href="comersus_customerAuthenticateForm.asp"><%=getMsg(748,"login 2 backorder")%></a>.</td></tr>
     <%end if%>
    <%else%>
     <tr><td colspan="3"><hr></td></tr>
     <tr><td colspan="3"><input type="text" name="quantity" size="3">&nbsp;<input type="submit" name="add" value="<%=getMsg(664,"Add 2 cart")%>"></td></tr>
    <%end if%>
    <%if pDiscountPerQuantity = -1 then%>
     <tr><td colspan="3"><hr></td></tr>
     <tr><td><%=getMsg(27,"Discounts qty")%><br>
    <%end if%>
    <%if pIdAuction > 0 then%>
     <tr><td colspan="3"><hr></td></tr>
     <tr><td><%=getMsg(28,"Get 4 less")%>
     <a href="comersus_optAuctionOfferForm.asp?idAuction=<%=pIdAuction%>&redirectUrl=comersus_optAuctionOfferForm.asp?idAuction=<%=pIdAuction%>"><%=getMsg(29,"Auction")%></a></td></tr>
    <%end if%>
    <%if pEmailToFriend = "-1" then%>
     <tr><td colspan="3"><hr></td></tr>
     <tr><td><a href="comersus_optEmailToFriendForm.asp?idProduct=<%=pIdProduct%>&description=<%=Server.UrlEncode(pDescription) & " " &pCurrenCySign& money(pPrice)%>"><%=getMsg(30,"Email 2 friend")%></a></td></tr>
    <%end if%>
    <%if pWishList="-1" then%>
     <tr><td colspan="3"><hr></td></tr>
     <tr><td><a href="comersus_customerWishListAdd.asp?idProduct=<%=pIdProduct%>&redirect=wish"><%=getMsg(31,"Add 2 WL")%></a></td></tr>
    <%end if%>
    <%if pFreeShipping = -1 and (pRealTimeShipping = "none" or pRealTimeShipping = "ups") then%>
     <tr><td colspan="3"><hr></td></tr>
     <tr><td><img src="images/freeShippingTruck.gif"> <%=getMsg(32,"Free Shipping")%></td></tr>
    <%end if%>
    <!--#include file="comersus_optGetRelatedProducts.asp"-->
    </td></tr>
    </form>
   </table>
   <table width="533" cellpadding="5" cellpadding="0">
    <form action="comersus_suggestionBoxExec.asp" method="post">
    <tr><td><hr></td></tr>
    <tr><td><b><%=getMsg(727,"Sugg Box")%></b></td></tr>
    <tr><td><img src="images/suggestionBox.gif" alt="<%=getMsg(727,"Sugg Box")%>"></td></tr>
    <tr><td><%=getMsg(728,"Your opin")%> &nbsp;<%=pCompany%>. <%=getMsg(729,"If you have...")%></td></tr>
    <tr><td><%=getMsg(730,"Thanks again")%></td></tr>
    <tr><td>
     <textarea name="suggestion" cols="60" rows="4"></textarea>
     <input type="hidden" name="idProduct" value="<%=pIdProduct%>">
     <input type="hidden" name="sku" value="<%=pSku%>">
     <input type="hidden" name="description" value="<%=pDescription%>">
    </td></tr>
    <tr><td><input type="submit" name="submit" value="Submit"></td></tr>
    </form>
   </table>

  <!--#include file="footer.asp"-->
  <%
   call closeDb()
   set pIdproduct = Nothing
   set pDescription = Nothing
   set pDetails = Nothing
   set pListPrice = Nothing
   set pImageUrl = Nothing
  %>