ERROR: El valor de BOF o EOF es True, o el actual registro se eliminó; la operación solici
eL SIGUEINTE CÓDIGO ME GENERA EL ERROR El valor de BOF o EOF es True, o el actual registro se eliminó; la operación solicitada requiere un registro actual.
sI ALGUIEN PUEDE VER POR FAVOR 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
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 %>
Saludos
sI ALGUIEN PUEDE VER POR FAVOR 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
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 %>
Saludos
Perdon es este el còdigo
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>
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>