<% 'This code is copyright (c) Internet Business Solutions SL, all rights reserved. 'The contents of this file are protect under law as the intellectual property 'of Internet Business Solutions SL. Any use, reproduction, disclosure or copying 'of any kind without the express and written permission of Internet Business 'Solutions SL is forbidden. 'Author: Vince Reid, vince@virtualred.net prodoptions="" saveLCID = Session.LCID productdisplayscript(noproductoptions<>true) %> <% if productcolumns="" then productcolumns=1 if IsEmpty(showcategories) OR showcategories=true then %> <% end if if nowholesalediscounts=true AND Session("clientUser")<>"" then if ((Session("clientActions") AND 8) = 8) OR ((Session("clientActions") AND 16) = 16) then noshowdiscounts=true end if if noshowdiscounts<>true then Session.LCID = 1033 sSQL = "SELECT DISTINCT "&getlangid("cpnName",1024)&" FROM coupons LEFT OUTER JOIN cpnassign ON coupons.cpnID=cpnassign.cpaCpnID WHERE (" addor = "" if catid<>"0" then sSQL = sSQL & addor & "((cpnSitewide=0 OR cpnSitewide=3) AND cpaType=1 AND cpaAssignment IN ('"&Replace(topsectionids,",","','")&"'))" addor = " OR " end if tdt = Date() sSQL = sSQL & addor & "(cpnSitewide=1 OR cpnSitewide=2)) AND cpnNumAvail>0 AND cpnEndDate>="&datedelim&VSUSDate(tdt)&datedelim&" AND cpnIsCoupon=0" Session.LCID = saveLCID rs2.Open sSQL,cnn,0,1 if NOT rs2.EOF then %> <% end if rs2.Close end if If iNumOfPages > 1 AND pagebarattop=1 Then %> <% end if netnav = true if instr(Request.ServerVariables("HTTP_USER_AGENT"), "compatible") > 0 OR instr(Request.ServerVariables("HTTP_USER_AGENT"), "Gecko") > 0 then netnav = false function atb(size) if netnav then atb = CInt(size / 2 + 1) else atb = size end if end function Do While Not rs.EOF And Count < rs.PageSize if Trim(rs(getlangid("pLongDescription",4)))<>"" OR NOT (Trim(rs("pLargeImage"))="" OR IsNull(rs("pLargeImage")) OR Trim(rs("pLargeImage"))="prodimages/") then if (rs("pSell") AND 4)=4 then startlink="" endlink="" elseif detailslink<>"" then startlink=replace(replace(detailslink,"%largeimage%", rs("pLargeImage")),"%pid%", rs("pId")) endlink=detailsendlink else startlink="" endlink="" end if else startlink="" endlink="" end if Session.LCID = 1033 if NOT isrootsection then if IsNull(rs("pSection")) then thetopts = 0 else thetopts = rs("pSection") gotdiscsection = false for cpnindex=0 to adminProdsPerPage-1 if aDiscSection(0,cpnindex)=thetopts then gotdiscsection = true exit for elseif aDiscSection(0,cpnindex)="" then exit for end if next aDiscSection(0,cpnindex) = thetopts if NOT gotdiscsection then topcpnids = thetopts for index=0 to 10 if thetopts=0 then exit for else sSQL = "SELECT topSection FROM sections WHERE sectionID=" & thetopts rs2.Open sSQL,cnn,0,1 if NOT rs2.EOF then thetopts = rs2("topSection") topcpnids = topcpnids & "," & thetopts else rs2.Close exit for end if rs2.Close end if next aDiscSection(1,cpnindex) = topcpnids else topcpnids = aDiscSection(1,cpnindex) end if end if alldiscounts = "" if noshowdiscounts<>true then tdt = Date() sSQL = "SELECT DISTINCT "&getlangid("cpnName",1024)&" FROM coupons LEFT OUTER JOIN cpnassign ON coupons.cpnID=cpnassign.cpaCpnID WHERE (cpnSitewide=0 OR cpnSitewide=3) AND cpnNumAvail>0 AND cpnEndDate>="&datedelim&VSUSDate(tdt)&datedelim&" AND cpnIsCoupon=0 AND ((cpaType=2 AND cpaAssignment='"&rs("pID")&"')" if NOT isrootsection then sSQL = sSQL & " OR (cpaType=1 AND cpaAssignment IN ('"&Replace(topcpnids,",","','")&"') AND NOT cpaAssignment IN ('"&Replace(topsectionids,",","','")&"'))" sSQL = sSQL & ")" rs2.Open sSQL,cnn,0,1 do while NOT rs2.EOF alldiscounts = alldiscounts & rs2(getlangid("cpnName",1024)) & "
" rs2.MoveNext loop rs2.Close end if Session.LCID = saveLCID if Count MOD productcolumns = 0 then response.write "" %> <% Count = Count + 1 rs.MoveNext if Count MOD productcolumns = 0 then response.write "" if Not rs.EOF And Count < rs.PageSize then response.write "" for index=1 to productcolumns response.write "" next response.write "" end if end if loop if Count MOD productcolumns <> 0 then do while Count MOD productcolumns <> 0 response.write "" Count = Count + 1 loop response.write "" end if %>

<% response.write tslist %>

<% if nobuyorcheckout<>true then %>

<%=xxCOTxt%>

<% end if %>

<%=xxDsProd%>
<% do while NOT rs2.EOF response.write rs2(getlangid("cpnName",1024)) & "
" rs2.MoveNext loop %>

<% Response.Write writepagebar(CurPage, iNumOfPages) & "
" %>

<% if showproductid=true then response.write "" %> <% if currencyseparator="" then currencyseparator=" " updatepricescript(noproductoptions<>true) thedesc = trim(rs(getlangid("pDescription",2))) %> <% if nobuyorcheckout<>true then response.write "" end if%>

" & xxPrId & ": " & rs("pID") & "

<% if Trim(rs("pImage"))="" or IsNull(rs("pImage")) or Trim(rs("pImage"))="prodimages/" then %> <% else %> <%=startlink%>

" border="0" alt="<%=Replace(rs(getlangid("pName",1))&"","""",""")%>" /><%=endlink%> <% end if %>

<%=startlink & rs(getlangid("pName",1)) & endlink & xxDot%>
<% if alldiscounts<>"" then response.write ""&xxDsApp&"

" & alldiscounts & "

" %> <% if thedesc<>"" then response.write "

" & thedesc & "

" else response.write "
" optionshavestock=true if IsArray(prodoptions) AND noproductoptions<>true then response.write "

" for rowcounter=0 to UBOUND(prodoptions,2) index=0 gotSelection=false cacheThis=NOT useStockManagement do while index < (maxprodopts-1) AND aOption(0,index)<>0 if aOption(0,index)=Int(prodoptions(0,rowcounter)) then gotSelection=true exit do end if index = index + 1 loop if NOT gotSelection then aOption(2,index) = false sSQL="SELECT optID,"&getlangid("optName",32)&","&getlangid("optGrpName",16)&","&OWSP&"optPriceDiff,optType,optFlags,optStock,optPriceDiff AS optDims FROM options INNER JOIN optiongroup ON options.optGroup=optiongroup.optGrpID WHERE optGroup="&prodoptions(0,rowcounter)&" ORDER BY optID" rs2.Open sSQL,cnn,0,1 if NOT rs2.EOF then if Abs(Int(rs2("optType")))=3 then aOption(2,index)=true fieldHeight = cInt((cDbl(rs2("optDims"))-Int(rs2("optDims")))*100.0) aOption(1,index) = "" else aOption(1,index) = "" end if end if if cacheThis then aOption(0,index) = Int(prodoptions(0,rowcounter)) rs2.Close end if response.write Replace(Replace(aOption(1,index),"optnPLACEHOLDER","optn"&rowcounter),"updatepricePLACEHOLDER",IIfVr((rs("pPrice")=0 AND pricezeromessage<>"") OR noprice=true,"dummyfunc","updateprice"&Count),1,1) optionshavestock = (optionshavestock AND aOption(2,index)) next response.write "

"&rs2(getlangid("optGrpName",16))&":	" if fieldHeight<>1 then aOption(1,index) = aOption(1,index) & "" aOption(1,index) = aOption(1,index) & rs2(getlangid("optName",32))&"" else aOption(1,index) = aOption(1,index) & "" end if aOption(1,index) = aOption(1,index) & "
"&rs2(getlangid("optGrpName",16))&":

" end if if noprice<>true then if cDbl(rs("pListPrice"))<>0.0 then response.write Replace(xxListPrice, "%s", FormatEuroCurrency(rs("pListPrice"))) & "
" if rs("pPrice")=0 AND pricezeromessage<>"" then response.write "

" & pricezeromessage & "

" else response.write "

" & xxPrice & ": " & FormatEuroCurrency(rs("pPrice")) & " " if showtaxinclusive=true AND (rs("pExemptions") AND 2)<>2 then response.write Replace(ssIncTax,"%s", "" & FormatEuroCurrency(rs("pPrice")+(rs("pPrice")*countryTax/100.0)) & " ") response.write "

" extracurr = "" if currRate1<>0 AND currSymbol1<>"" then extracurr = replace(currFormat1, "%s", FormatNumber(rs("pPrice")*currRate1, checkDPs(currSymbol1))) & currencyseparator if currRate2<>0 AND currSymbol2<>"" then extracurr = extracurr & replace(currFormat2, "%s", FormatNumber(rs("pPrice")*currRate2, checkDPs(currSymbol2))) & currencyseparator if currRate3<>0 AND currSymbol3<>"" then extracurr = extracurr & replace(currFormat3, "%s", FormatNumber(rs("pPrice")*currRate3, checkDPs(currSymbol3))) if extracurr<>"" then response.write "

" & extracurr & "

" end if end if %>

" if useStockManagement then if ((rs("pSell") AND 2)=2) then isInStock = optionshavestock else isInStock = Int(rs("pInStock")) > 0 else isInStock = Int(cStr((rs("pSell") AND 1))) <> 0 end if if isInStock then %> " /> "","?","")&Request.ServerVariables("QUERY_STRING")%>" /> <% if showquantonproduct=true then response.write "" if custombuybutton<>"" then response.write custombuybutton else response.write "" else response.write ""&xxOutStok&"" end if response.write "

<% If iNumOfPages > 1 AND nobottompagebar<>true Then Response.Write writepagebar(CurPage, iNumOfPages) %>