<% SET CONN=SERVER.CREATEOBJECT("ADODB.CONNECTION") dbpath=Server.MapPath("db/harvest.mdb") CONN.OPEN("DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&dbpath) set RS=Conn.Execute("SELECT * FROM LINK ORDER BY NAME ASC") Do while not rs.eof %> " target="top"> <%= RS("NAME") %> - <%= RS("Info") %> <% rs.movenext loop %>