Mira prueba este que quedo mas cortito
**************
<%
id = request.querystring("foro")
Set con = Server.CreateObject("ADODB.Connection")
Set RS=Server.CreateObject("ADODB.Recordset")
con.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Server.MapPath("*****.mdb"))
sql = "SELECT * FROM mensajes Where id = " & id &" "
Rs.Open sql, con, 3,3
num_mensajes = Rs.RecordCount
response.Write "Mensajes: "& num_mensajes &""
con.Close
Set con = Nothing
%>
**************
Bueno creoq ue este ultimo es la solución y podras obtener lo que deseas,a l menos eso espero
Saludos
