HOME Account

Categories

<% 'Build connection set con = server.CreateObject ("ADODB.Connection") con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath ("admins/project.html") Set catRS = Server.CreateObject( "ADODB.Recordset" ) catRS.ActiveConnection = con sqlString = "SELECT DISTINCT product_category FROM Products " catRS.Open sqlString %> <% WHILE NOT catRS.EOF %> <% IF catRS( "product_category" ) = cat THEN %>

<%=catRS( "product_category" )%> <% ELSE %>       "> <%=catRS( "product_category" )%> <% END IF %> <% catRS.MoveNext WEND %> <% catRS.Close %>