Manufacturer All Manufacturers <% Set cnn = Server.CreateObject("ADODB.Connection") cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("database\current.mdb") & ";Jet OLEDB:Database Password=;" Set rec = Server.CreateObject("ADODB.Recordset") rec.open "Select Distinct Mfg FROM WebInventory ORDER BY Mfg", cnn, adOpenStatic While Not rec.EOF Response.write("" & rec.Fields.Item(0).Value & "" ) rec.MoveNext Wend rec.Close %> Category All Categories <% rec.open "Select Distinct Category FROM WebInventory ORDER BY Category", cnn, adOpenStatic While Not rec.EOF Response.write("" & rec.Fields.Item(0).Value & "" ) rec.MoveNext Wend rec.Close Set rec = nothing %> Part Number Date Code (All) 99+ 98+ 97+ 96+ 95+ 94+ 93+ 92+ 91+ 90+ 89+ Include parts without a date code