<% '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 %> Organicspam.com-Disclaimer

Disclaimer

The views expressed here are strictly personal and organicspam.com does not necessarily subscribe to them. We shall endeavour to upload/publish as many of the comments that are submitted as possible within a reasonable span of time, but we do not guarantee that all comments that are submitted will be uploaded/published. Messages that harass, abuse or threaten other members; have obscene, unlawful, defamatory, libellous, hateful, or otherwise objectionable content; or have spam, commercial or advertising content or links are liable to be removed by the editors. We also reserve the right to edit the comments that do get published. Please do not post any private information unless you want it to be available publicly.

CLOSE
 
<% 'close connection and recordset... rs.Close set rs = nothing conn.Close set conn = nothing %>