NO SE EJECUTA EL IF

Rossana
12 de Noviembre del 2004
Buenas

no se ejecuta el if que est dentro del do while, si alguien puede ver lo que pasa se lo agradezco.

<%
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>Da: <% =RS("fecha") %> </P></TD>
<TD vAlign=top width=500><% =RS("mensaje")%></TD></FONT></TR></TBODY></TABLE>

<% exit do
else
rs.movenext
end if
loop %>

Saludos.