|
|
<% cn.Open %>
<% strSQLQuery = "SELECT * FROM products_to_categories"%>
<% str1SQLQuery = "SELECT * FROM products_description ORDER by products_name ASC" %>
<% str2SQLQuery = "SELECT * FROM products" %>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strSQLQuery, cn,3 ,3
%>
<% do while not rs.EOF %>
<% if rs.Fields("categories_id") = request.querystring("cat") then
Set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.Open str1SQLQuery, cn,3 ,3
do while not rs1.EOF
if rs.Fields("products_id") = rs1.Fields("products_id") then
Set rs2 = Server.CreateObject("ADODB.Recordset")
rs2.Open str2SQLQuery, cn,3 ,3
do while not rs2.EOF
if rs2.Fields("products_id") = rs1.Fields("products_id") then %>
| |
| <%=rs1.Fields("products_name")%> |
|
| |
| |
<% end if
rs2.MoveNext
loop
rs2.Close%>
<% end if
rs1.MoveNext
loop
rs1.Close%>
<%end if
rs.MoveNext
loop %>
<%rs.Close%>
<%cn.Close%>
|
" width="110">