Buenas
El siguiente código no funciona, no genera ningún error , pero no muestra nada en la pantalla
, por lo menos sé que se agarran las variables correctamente, pero no imprime la tabla, 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,1
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 bgColor=#b5b5ff>
<TD align=left width=170><B><% =RS("asunto") %></B> <BR>
<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 %>
Saludos
