<%
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
%>
