<% set CatRs = Server.CreateObject("ADODB.Recordset")
CatRsSql = "SELECT * FROM CN_Category"
CatRs.Open CatRsSql,conn,1,1 tablenum=3 %> <% Do While Not CatRs.Eof %> <% If Not CatRs.Eof Then ' http://localhost/Double/product.asp?SubCategoryID=731 Response.Write "
" tablenum=tablenum+1 Response.Write "" set SubRs = Server.CreateObject("ADODB.Recordset") SubRsSql = "SELECT * FROM CN_SubCategory where CategoryID="&CatRs("id") SubRs.Open SubRsSql,conn,1,1 Do While Not SubRs.Eof If Not SubRs.Eof Then Response.Write "