<% Set catRS = Server.CreateObject( "ADODB.Recordset" ) catRS.ActiveConnection = Con sqlString = "SELECT DISTINCT product_category FROM Products " sqlString = sqlString & "WHERE product_status=1 " sqlString = sqlString & "ORDER BY product_category" catRS.Open sqlString %> <% If cat = "Home" THEN %> Home

<% ELSE %> Home
<% END IF %> <% WHILE NOT catRS.EOF %> <% IF catRS( "product_category" ) = cat THEN %>
• <%=catRS( "product_category" )%> <% ELSE %>
• "><%=catRS( "product_category" )%> <% END IF %> <% catRS.MoveNext WEND %>
<% catRS.Close %>