recordset no muestra datos

Hola Antonio,

es raro lo que te pasa, porqué no nos mandas el código completo cuando
tienes "varios".


Saludos,
Jhonny Vargas P.
Santiago de Chile


"Antonio" escribió en el mensaje
news:1e9e01c4fedc$29737830$
Hola.

Tengo un problema.
Quiero mostrar unos datos de una consulta en forma de tabla.
Construyo mi tabla en HTML y donde va el parámetro de la
consulta pongo un <%=rs("nombreCampo")%>, y hasta ahí todo
bien. Pero si tengo varios no me muestra los valores, es
como si los perdiera. Hasta ahora la solución que voy
usando es hacer un rs.requery justo antes de poner lo
anterior para cada uno de los campos, y entonces si me
funciona.

A alguien le ha pasado esto?? y lo ha podido resolver de
otra forma????

Gracias

Hola.
He aqui la consulta y como lo muestro.
Es tan simple que no entiendo que puede pasar.

Quizas tu lo hagas de otra manera. (uso IE6 y Firefox 1.0)


set rs = Server.CreateObject("ADODB.Recordset")

sql = "SELECT * FROM miBD.dbo.mitabla"

set rs = Server.CreateObject("ADODB.Recordset")
'Abro la consulta
rs.Open sql, Application("BD")
if not (rs.EOF and rs.BOF) then
%>
<table widht="98%" align="center" cols=3>

<tr><td>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td></tr>
if rs("nTipoPublicacion") = "BI" then
%>
<tr><td nowrap colspan="3" lign="center">
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;BIBLIOGRAFÍA&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td></tr>
<%

Response.Write "<tr>"
rs.requery 'Asi me lo muestra, si lo quito no
Response.write "<td><span class='LG'>CAMPO 1: " &
rs("campo1") & "</span></td>"
Response.write "<td colspan=2>Campo 2:" & rs("campo2") &
"</td>"
Response.Write "</tr>"
Response.Write "<tr>"
rs.requery
Response.write "<td>Campo 3:" & rs("campo3") & "</td>"

Response.Write "</tr>"
Response.Write "<tr>"
'rs.requery
Response.write "<td>Campo 4" & rs("campo4") & "</td>"

Response.Write "</tr>"
Response.Write "<tr>"
rs("cObservaciones") & "</td>"
Response.Write "</tr>"

end if