<% DIM navSQL1, navRS1 Set navRS1 = Server.CreateObject("ADODB.Recordset") navSQL1 = "SELECT * FROM Cat1 Order By Name" navRS1.Open navSQL1, objConn %> <% ' adding the one to the end because this page is included in pages with those vars already dimmed. Dim navCat1Name1 Dim navCat1Id1 Do While Not navRs1.EOF navCat1Id1 = navRs1("Id") navCat1Name1 = navRs1("Name") %> <% navRs1.MoveNext Loop %>

Product Categories