<% DIM navSQL4, navRS4 Set navRS4 = Server.CreateObject("ADODB.Recordset") navSQL4 = "SELECT * FROM Cat4 Where Cat3Id = '"& strCat3Id &"' Order By Name" navRS4.Open navSQL4, objConn %> <% Dim navCat4Id4 Dim navCat4Name4 Do While Not navRs4.EOF navCat4Id4 = navRs4("Id") navCat4Name4 = navRs4("Name") %> <% navRs4.MoveNext Loop %>

<%= strCat3Name %>
">

<%= navCat4Name4 %>