<%'set Count equal to zero
count=0
do While not rstemp.eof and Count < rstemp.PageSize
pIdProduct=rstemp("idproduct")
pDescription=rstemp("description")
pPrice=rstemp("price")
pDetails=rstemp("details")
pListPrice=rstemp("listPrice")
pListHidden=rstemp("listHidden")
pBtoBPrice=rstemp("bToBPrice")
pSmallImageUrl=rstemp("smallImageUrl")
pserviceSpec=rstemp("serviceSpec")
psDesc=rstemp("sDesc")
pcv_intHideBTOPrice=rstemp("pcprod_HideBTOPrice")
if pcv_intHideBTOPrice<>"" then
else
pcv_intHideBTOPrice="0"
end if
pnoprices=rstemp("noprices")
if pnoprices<>"" then
else
pnoprices=0
end if
'BTO ADDON-S
if scBTO=1 then
if (pserviceSpec=true) and (pnoprices<2) then
mySQL="SELECT categories.categoryDesc, products.description, configSpec_products.configProductCategory, configSpec_products.price, configSpec_products.Wprice, categories_products.idCategory, categories_products.idProduct, products.weight FROM categories, products, categories_products INNER JOIN configSpec_products ON categories_products.idCategory=configSpec_products.configProductCategory WHERE (((configSpec_products.specProduct)="&pIdProduct&") AND ((configSpec_products.configProduct)=[categories_products].[idproduct]) AND ((categories_products.idCategory)=[categories].[idcategory]) AND ((categories_products.idProduct)=[products].[idproduct]) AND ((configSpec_products.cdefault)<>0)) ORDER BY configSpec_products.catSort, categories.idCategory, configSpec_products.prdSort;"
set rsSSObj=conntemp.execute(mySQL)
if err.number <> 0 then
response.redirect "techErr.asp?error="& Server.Urlencode("Error in viewPrd: "&err.description)
end if
if NOT rsSSobj.eof then
Dim iAddDefaultPrice, iAddDefaultWPrice
iAddDefaultPrice=Cdbl(0)
iAddDefaultWPrice=Cdbl(0)
do until rsSSobj.eof
iAddDefaultPrice=Cdbl(iAddDefaultPrice+rsSSobj("price"))
iAddDefaultWPrice=Cdbl(iAddDefaultWPrice+rsSSobj("Wprice"))
rsSSobj.moveNext
loop
set rsSSobj=nothing
pPrice=Cdbl(pPrice+iAddDefaultPrice)
pBtoBPrice=Cdbl(pBtoBPrice+iAddDefaultWPrice)
end if
end if
end if
'BTO ADDON-E %>
<%if pSmallImageUrl<>"" then%>
<%else%>
<%end if%>
|
<%response.write pDescription%>
<%
if (pPrice>"0") and (pcv_intHideBTOPrice<>"1") then
response.write dictLanguage.Item(Session("language")&"_prdD1_1") & " "
response.write scCurSign & money(pPrice)%>
<%if (pListPrice-pPrice)>0 AND plistHidden<0 AND session("customerType")<>1 then %><%response.write dictLanguage.Item(Session("language")&"_prdD1_2")%><%response.write scCurSign & money(pListPrice-pPrice)%>
<%end if
end if%>
<%if (pBtoBPrice>"0") and (session("customerType")=1) and (pcv_intHideBTOPrice<>"1") then%>
<%response.write dictLanguage.Item(Session("language")&"_prdD1_4")& " "%><%response.write scCurSign & money(pbToBPrice)%>
<%end if%>
<%
if pnoprices=0 then
' check for discount per quantity
mySQL="SELECT idDiscountperquantity FROM discountsperquantity WHERE idproduct=" &pidProduct
if session("CustomerType")<>"1" then
mySQL=mySQL & " and discountPerUnit<>0"
else
mySQL=mySQL & " and discountPerWUnit<>0"
end if
Dim rsDisc
set rsDisc=Server.CreateObject("ADODB.Recordset")
set rsDisc=conntemp.execute(mySQL)
if err.number <> 0 then
call closedb()
response.redirect "techErr.asp?error="& Server.Urlencode("Error in viewPrd: "&err.description)
end if
Dim pDiscountPerQuantity
if not rsDisc.eof then
pDiscountPerQuantity=-1
else
pDiscountPerQuantity=0
end if
set rsDisc = nothing
end if
%>
<%if pDiscountPerQuantity=-1 then %>
<%end if%>
<%if psDesc<>"" then%>
<%=psDesc%>
<%else%>
<%end if%>
 " border="0" vspace="5">
|
|
<% i=i + 1
If i > 0 then
response.write " "
i=0
End If
iRecordsShown=iRecordsShown + 1
count=count + 1
rsTemp.MoveNext
loop
%>
<% If iPageCount>1 then %>
<% If iPageCount>1 then
If iPageCurrent > 1 Then %>
 " border="0">
<% end if
For I=1 To iPageCount
If Cint(I)=Cint(iPageCurrent) Then %>
<%= I %>
<% Else %>
<%=I%>
<% End If
Next
If Cint(iPageCurrent) < Cint(iPageCount) Then %>
" border="0">
<% End If %>
<% End If %>
|
<% end if %>
<%
set rstemp=Nothing
set iPageCurrent=Nothing
call closeDb()
%>
|
