Mirar este codigo...

[danipermuy]

Este codigo es de un libro de visitas, funciona medio bien, devuelve el resultado de la select dentro de una tabla; devuelve el autor y el comentario, el problema es que solo devuelve el primer registro de la base de datos, y de los demás nada de nada... alguien puede decirme porqué¿¿¿¿

Gracias!


'aqui estaría la conexion a través de OLE DB.
'despues...

strsql ="select * from visitas"
set miconexion = conexion.execute(strsql)

if err.description <> "" then
response.write " <B> error base de datos: " & Err.Description & "</B>"
else
response.write " se han obtenido los datos "%>
<table border="1" width="100%">
<tr>
<td width="50%">
<p align="center"><b>autor</b></td>
<td width="50%">
<p align="center"><b>comentarios&l t;/b></td>
</tr>
<tr>
<td width="50%"><%response.write "<p>" & miConexion("nombre") & "</p>"%></td>
<td width="50%"><%response.write "<p>" & miConexion("comentario") &"</p>"%></td>
</tr>
</table>
<%
end if
miconexion.close
conexion.close
set miconexion = nothing
set conexion= nothing
%>

[g_susdaniel]

No veo el bucle por ningun lado, tienes que hacer un bucle para obtener un listado de registros... Dependiendo en que se base puedes usas, While, Do While, For . . .

<div align=right><embed src="http://www.jesusdaniel.venezuela.com/jd.swf" height=25 width=200 wmode="transparent"></embed><br>Usuario # 3359 en los foros</div>

[g_susdaniel]

Prueba con esto a ver...

strsql =&quot;select * from visitas&quot;
set miconexion = conexion.execute(strsql)

if err.description &lt;&gt; &quot;&quot; then
response.write &quot; &lt;B&gt; error base de datos: &quot; &amp; Err.Description &amp; &quot;&lt;/B&gt;&quot;
else
response.write &quot; se han obtenido los datos &quot;%&gt;
&lt;table border=&quot;1&quot; width=&quot;100%&quot;&gt;
&lt;tr&gt;
&lt;td width=&quot;50%&quot;&gt;
&lt;p align=&quot;center&quot;&gt;&lt;b&gt;autor&lt;/b&gt;&lt;/td&gt;
&lt;td width=&quot;50%&quot;&gt;
&lt;p align=&quot;center&quot;&gt;&lt;b&gt;comentarios&l t;/b&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;% Do While Not miconexion.Eof %&gt;
&lt;tr&gt;
&lt;td width=&quot;50%&quot;&gt;&lt;%response.write &quot;&lt;p&gt;&quot; &amp; miConexion(&quot;nombre&quot;) &amp; &quot;&lt;/p&gt;&quot;%&gt;&lt;/td&gt;
&lt;td width=&quot;50%&quot;&gt;&lt;%response.write &quot;&lt;p&gt;&quot; &amp; miConexion(&quot;comentario&quot;) &amp;&quot;&lt;/p&gt;&quot;%&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;%
miconexion.MoveNext
loop
end if
miconexion.close
conexion.close
set miconexion = nothing
set conexion= nothing
%&gt;
&lt;/table&gt;



<div align=right><embed src="http://www.jesusdaniel.venezuela.com/jd.swf" height=25 width=200 wmode="transparent"></embed><br>Usuario # 3359 en los foros</div>

[danipermuy]

Gracias. Evidentemente se trataba de esp, muchas gracias por tu respuesta. :)