En el sigueinte código no se ejecuta el if que está dentro del do while, y las varaibles si tman su valor correcto. Si alguien puede observar lo que pasa, se lo agradezco un millón.
<%
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"))
Set RS = Server.CreateObject("ADODB.Recordset")
RS.open "foro",conexion
RS.movefirst
do while not RS.eof
if RS("fecha")= fecha and RS("usuario")= usuario and RS("hora")= hora then
%>
<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>
<% exit do
else
rs.movenext
end if
loop %>
Gracias!
