SoloCodigo

Programación Web y Scripting => ASP => Mensaje iniciado por: oonai en Lunes 6 de Febrero de 2006, 18:29

Título: Despliegue De Registros
Publicado por: oonai en Lunes 6 de Febrero de 2006, 18:29

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

Título: Re: Despliegue De Registros
Publicado por: marcbil en Lunes 20 de Febrero de 2006, 14:49

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