Book Marketing Works, LLC
<% DataSource = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/webtables.mdb") & ";" Set MyConn = Server.CreateObject("ADODB.Connection") MyConn.Open DataSource SQL_query = "SELECT Category,MAX(Sequence) FROM Bookmarks GROUP BY Category ORDER BY MAX(Sequence)" Set PS = MyConn.Execute(SQL_query) WHILE NOT PS.EOF if PS("Category") <> "Home" then %> <% end if PS.MoveNext WEND PS.Close Set PS = nothing MyConn.Close Set MyConn = nothing %>