Alla produkter

<% Set rubrik = Server.CreateObject("ADODB.Recordset") rubrik.CursorLocation = adUseClient rubrik_sql = "SELECT * FROM underrubrik ORDER BY subrubrik ASC" rubrik.Open rubrik_sql, objConn, 3, 1 Do until rubrik.EOF %> <%= rubrik("subrubrik")%>
<% Set annons = Server.CreateObject("ADODB.Recordset") annons.CursorLocation = adUseClient annons_sql = "SELECT * FROM produkter WHERE subkat = " & rubrik("ID") annons.Open annons_sql, objConn, 3, 1 Do until annons.EOF %>    - <%= annons("produktnamn")%>
<% annons.movenext loop annons.close set annons = nothing %>
<% rubrik.movenext loop rubrik.close set rubrik = nothing %>