<%@ Language="VBScript" %> <% Dim conn,rs,sql 'create connection set conn = server.CreateObject ("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath ("fpdb/engglas.mdb") 'query to select active data... sql = "SELECT * FROM title, vote where title.active = 'y' and title.id = vote.id" set rs = server.CreateObject ("ADODB.Recordset") rs.Open sql, conn, 3, 3 %> <% Dim strq,ip,objRs strq="select top 3 * from fft order by id_num desc" 'response.Write(strq) Set objRs=objConn.execute(strq) %> <% 'close connection and recordset... rs.Close set rs = nothing conn.Close set conn = nothing %>