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