Ahora lo hice con la instrucción sql, pero me genera el error
ADODB.Field (0x80020s009)
El valor de BOF o EOF es True, o el actual registro se eliminó; la operación solicitada requiere un registro actual.
<%
fecha=Request.querystring("variable1")
usuario=Request.querystring("variable2")
hora=Request.querystring("variable3")
dim conexion, sql, RS
Set conexion = Server.CreateObject("ADODB.Connection")
conexion.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("base_datos.mdb"))
sql ="SELECT * FROM foro where fecha = '"&fecha&"' and usuario ='"&usuario&"' and hora = '"&hora&"'"
set RS= conexion.execute(sql) %>
<TABLE align=center border=1>
<TBODY>
<TR>
<TD></TD>
<TD align=right><A href="http://127.0.0.1/Responderforo.htm">Responder</A>
<A href="http://127.0.0.1/Listaforos.asp">Lista de Foros</A></TD></tr>
<TR bgColor=#b5b5ff>
<TD align=left width=170><B><% =RS("asunto") %></B>
<P>Autor: <% =RS("usuario") %>
<P>Día: <% =RS("fecha") %> </P></TD>
<TD vAlign=top width=500><% =RS("mensaje") %></TD></FONT></TR></TBODY></TABLE>
</body>
</html>