<%
'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
Dim sSQL,rs,alldata,cnn,rowcounter,iNumOfPages,CurPage,Count,weburl,longdesc,currFormat1,currFormat2,currFormat3,aOption()
if Trim(explicitid)<>"" then prodid=Trim(explicitid) else prodid=Trim(request.querystring("prod"))
prodlist="'" & Replace(prodid,"'","''") & "'"
WSP = ""
OWSP = ""
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
Redim aOption(2,maxprodopts)
Count=0
Set rs = Server.CreateObject("ADODB.RecordSet")
Set rs2 = Server.CreateObject("ADODB.RecordSet")
Set cnn=Server.CreateObject("ADODB.Connection")
cnn.open sDSN
alreadygotadmin = getadminsettings()
Call checkCurrencyRates(currConvUser,currConvPw,currLastUpdate,currRate1,currSymbol1,currRate2,currSymbol2,currRate3,currSymbol3)
if Session("clientUser")<>"" then
if (Session("clientActions") AND 8) = 8 then
WSP = "pWholesalePrice AS "
if wholesaleoptionpricediff=TRUE then OWSP = "optWholesalePriceDiff AS "
end if
if (Session("clientActions") AND 16) = 16 then
Session.LCID = 1033
WSP = Session("clientPercentDiscount") & "*pPrice AS "
if wholesaleoptionpricediff=TRUE then OWSP = Session("clientPercentDiscount") & "*optPriceDiff AS "
Session.LCID = saveLCID
end if
end if
Session("frompage")=Request.ServerVariables("URL")&IIfVr(Trim(Request.ServerVariables("QUERY_STRING"))<>"","?","")&Request.ServerVariables("QUERY_STRING")
' Previous and next
sSQL = "SELECT pId,"&getlangid("pName",1)&",pImage,"&WSP&"pPrice,pSection,pListPrice,pSell,pInStock,pExemptions,"&IIfVr(detailslink<>"","'' AS ","")&"pLargeImage,"&getlangid("pDescription",2)&","&getlangid("pLongDescription",4)&" FROM products WHERE pDisplay<>0 AND pId='"&Replace(prodid,"'","''")&"'"
rs.Open sSQL,cnn,0,1,&H0001
if rs.EOF then
response.write "
Sorry, this product is not currently available.
"
else
tslist = ""
if IsNull(rs("pSection")) then catid = 0 else catid = rs("pSection")
if Trim(request.querystring("cat"))<>"" AND IsNumeric(request.querystring("cat")) AND Trim(request.querystring("cat"))<>"0" then catid = request.querystring("cat")
thetopts = catid
topsectionids = catid
isrootsection=false
for index=0 to 10
if thetopts=0 then
tslist = ""&xxHome&" " & tslist
exit for
elseif index=10 then
tslist = "Loop" & tslist
else
sSQL = "SELECT sectionID,topSection,"&getlangid("sectionName",256)&",rootSection,sectionurl FROM sections WHERE sectionID=" & thetopts
rs2.Open sSQL,cnn,0,1
if NOT rs2.EOF then
if trim(rs2("sectionurl")&"")<>"" then
tslist = " » " & rs2(getlangid("sectionName",256)) & "" & tslist
elseif rs2("rootSection")=1 then
tslist = " » " & rs2(getlangid("sectionName",256)) & "" & tslist
else
tslist = " » " & rs2(getlangid("sectionName",256)) & "" & tslist
end if
thetopts = rs2("topSection")
topsectionids = topsectionids & "," & thetopts
else
tslist = "Top Section Deleted" & tslist
rs2.Close
exit for
end if
rs2.Close
end if
next
nextid=""
previousid=""
sectionids = getsectionids(catid, false)
sSQL = "SELECT products.pId FROM products LEFT JOIN multisections ON products.pId=multisections.pId WHERE (products.pSection IN (" & sectionids & ") OR multisections.pSection IN (" & sectionids & ")) AND pDisplay<>0 AND products.pId > '"&Replace(prodid,"'","''")&"' ORDER BY products.pId ASC"
rs2.Open sSQL,cnn,0,1
if NOT rs2.EOF then
nextid = Server.URLEncode(rs2("pId"))
end if
rs2.Close
sSQL = "SELECT products.pId FROM products LEFT JOIN multisections ON products.pId=multisections.pId WHERE (products.pSection IN (" & sectionids & ") OR multisections.pSection IN (" & sectionids & ")) AND pDisplay<>0 AND products.pId < '"&Replace(prodid,"'","''")&"' ORDER BY products.pId DESC"
rs2.Open sSQL,cnn,0,1
if NOT rs2.EOF then
previousid = Server.URLEncode(rs2("pId"))
end if
rs2.Close
saveLCID = Session.LCID
prodoptions=""
productdisplayscript(true)
if currencyseparator="" then currencyseparator=" "
updatepricescript(true) %>
<%
end if ' rs.EOF
set rs = nothing
set rs2 = nothing
set cnn = nothing
%>