<% if rsproduct("lg_image") <> "" then %>" src="/store/images/<%=rsproduct("lg_image")%>" border=0> <%end if %> |
<%if rsproduct("show_MSRP") then %>
MSRP: <%end if%> <%if rsproduct("showPrice") then %> <%if session("group_ID") > 0 then set rsRetailPrice = server.CreateObject("ADODB.RECORDSET") set rsRetailPrice = conn.execute("stor_get_more_info " & rsProduct("product_ID") & "," & session("group_ID")) fRetailPrice = rsRetailPrice("retail_price") rsRetailPrice.Close set rsRetailPrice = nothing %> Retail Price: <%=formatcurrency(fRetailPrice)%> <% else %> Our Price: <%=formatcurrency(rsproduct("Retail_Price"))%> <% end if %> <%end if%> <%'session("User_ID") = 4 'Check to see if any Product Level discounts apply if rsProduct("Discounts") > "" or len(rsProduct("Discounts")) > 1 then dim ardiscounts, rsDiscount, discount_ID, arusers, a ardiscounts = split(rsProduct("Discounts"),",") if ubound(ardiscounts) <= 0 then discount_ID = cint(arDiscounts(0)) set rsDiscount = server.CreateObject("ADODB.RECORDSET") rsDiscount.CursorLocation = adUseClient set rsDiscount = conn.execute("stor_Discounts_select_ID " & discount_ID) if not rsDiscount.EOF then if (rsDiscount("Type3") = 0 and rsDiscount("Type1") = 1 and rsDiscount("Type5") = 0) then 'Single item product-level discount available to all users Response.Write("Special: " & rsDiscount("Display")) end if if (rsDiscount("Type3") = 0 and rsDiscount("Type1") = 1 and rsDiscount("Type5") = 1) then 'Single item product-level discount available to selected users arusers = split(rsDiscount("Users"),",") if ubound(arusers) = 0 then if cint(session("User_ID")) = cint(arusers(0)) then Response.Write("Special: " & rsDiscount("Display")) end if else if ubound(arusers) > 0 then for a = lbound(arusers) to ubound(arusers) if cint(session("User_ID")) = cint(arusers(a)) then Response.Write("Special: " & rsDiscount("Display")) exit for end if next end if end if end if end if rsDiscount.Close set rsDiscount = nothing else 'Multiple Discounts for a single product dim p for p = lbound(ardiscounts) to ubound(ardiscounts) discount_ID = ardiscounts(p) set rsDiscount = server.CreateObject("ADODB.RECORDSET") rsDiscount.CursorLocation = adUseClient set rsDiscount = conn.execute("stor_Discounts_select_ID " & discount_ID) if not rsDiscount.EOF then if (rsDiscount("Type3") = 0 and rsDiscount("Type1") = 1 and rsDiscount("Type5") = 0) then 'Single item product-level discount available to all users Response.Write("Special: " & rsDiscount("Display")) end if if (rsDiscount("Type3") = 0 and rsDiscount("Type1") = 1 and rsDiscount("Type5") = 1) then 'Single item product-level discount available to selected users arusers = split(rsDiscount("Users"),",") if ubound(arusers) = 0 then if cint(session("User_ID")) = cint(arusers(0)) then Response.Write("Special: " & rsDiscount("Display")) end if else if ubound(arusers) > 0 then for a = lbound(arusers) to ubound(arusers) if cint(session("User_ID")) = cint(arusers(a)) then Response.Write("Special: " & rsDiscount("Display")) exit for end if next end if end if end if end if rsDiscount.Close set rsDiscount = nothing next end if end if %> |
<%=rsproduct("long_desc")%> |
|
<< Back to Products |