<!-- #include file="shop$db.asp" -->
<%
'************************************************************************
' VP_ASP 6.50 dependent Displays
' Jan 24, 2004
'************************************************************************
productlist=""
deparray=getsessa("deparray")
depcount=getsess("depcount")
If depcount="" then 
   responseredirect getsess("currenturl")
end if   
for i = 0 to depcount-1
'   debugwrite "0=" & deparray(0,i)
'   debugwrite "1=" & deparray(1,i)
   product=deparray(1,i)
   if productlist<>"" then
      productlist=productlist & ","
   end if 
   productlist=productlist & product
next
sql ="select * from products where catalogid in (" & productlist & ")"
setsess "sql", sql
'debugwrite sql
msg=Getlang("langdependenterror")
setsess "category",msg
responseredirect "shopdisplayproducts.asp?search=yes"
%>