No Se Ejecuta El If

[RossanaIsabel]

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!

[orharo2003]

este post ya lo habia visto........ ???????

if(RS("fecha")=cdate(fecha) and RS("usuario")=usuario and RS("hora")=cdate(hora)) then

Mira amiguita. no soy adivino para ver si los valores que estás poniendo como fecha, usuario sean válidos, eso lo podrías checar TÚ y analizarle un poco porqué no está entrando, sin embargo tome encuenta mi observación.

[RossanaIsabel]

Si fecha es un valor fecha.