| <% if SelectedCategory <> "" then %> <% DataSource = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/webtables.mdb") & ";" Set MyConn = Server.CreateObject("ADODB.Connection") MyConn.Open DataSource SQL_query = "SELECT * FROM Bookmarks WHERE Category='"&SelectedCategory&"' ORDER BY Sequence ASC" Set RS=MyConn.Execute(SQL_query) WHILE NOT RS.EOF Link=RS("Link") Link=Replace(Link,"#","",1,1) if inStrRev(Link,"#")>0 then Link=Left(Link,inStrRev(Link,"#")-1) end if %> | <%=RS("Label")%> <% RS.MoveNext WEND RS.Close Set RS = nothing Set PS = nothing MyConn.Close Set MyConn = nothing %> | <% else%> <%end if %> |