Programación Web y Scripting > ASP

 Despliegue De Registros

(1/1)

oonai:
Saludos... Estoy pogramando un despliegue de clasificados.
Abro la base de datos sin problemas
<%
'apertura de BD
Set conectar = Server.CreateObject("ADODB.Connection")
conectar.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("clasificados.mdb"))
set clasirs=Server.createobject("ADODB.Recordset")
clasirs.ActiveConnection = conectar
clasirs.Source = "data"
clasirs.open
clasirs.MoveFirst
do while not clasirs.EOF
%>

despliego el primer clsificado, preseleccionado por item dentro de una tabla

<tr>
<td width="319">
<table width="320" border="0">
<tr><td><b><% response.write clasirs("titulo")%></b></td></tr>
<tr><TD><% response.write clasirs("mensaje")%></TD></tr>
<tr><td><% response.write clasirs("email")%></td></tr>
</table>
</td>

deseo desplegar el segundo registro al lado del primero (si existe..)

clasirs.movenext

if clasirs.eof then
despiego la tabla vacia
else
<td width="319">
<table width="320" border="0">
<tr><td><b><% response.write clasirs("titulo")%></b></td></tr>
<tr><TD><% response.write clasirs("mensaje")%></TD></tr>
<tr><td><% response.write clasirs("email")%></td></tr>
</table>
</td>
end if
loop

Ahora cuando aumento el segundo registro ocuurre un error, parece que se pierde la informacion del loop,  Si alguno de ustedes tiene una idea la agradezco... Gracias

marcbil:
que es lo que quieres hacer especificamente por que esto al parecer esta demads

if clasirs.eof then
despiego la tabla vacia
else
<td width="319">
<table width="320" border="0">
<tr><td><b><% response.write clasirs("titulo")%></b></td></tr>
<tr><TD><% response.write clasirs("mensaje")%></TD></tr>
<tr><td><% response.write clasirs("email")%></td></tr>
</table>
</td>
end if


no entiendo para que lo haces

Navegación

[0] Índice de Mensajes