Foros del Web - Ver Mensaje Individual

AlZuwaga · #6 (**permalink**) 10/05/2002, 13:52

Ya va, ya va... paciencia. Te lo estoy haciendo.

Antes de nada, quiero decirte que estás confundido... tu duda no es a cerca de la sintaxis de SQL.
Ahora si:

Código:

Dim oConn, rs, SQL, i, ncampos

set oConn=Server.CreateObject(&quot;ADODB.Connection&quot;)
set rs=Server.CreateObject(&quot;ADODB.Recordset&quot;)

oConn.Open &quot;driver={Microsoft Access Driver (*.mdb)};;DBQ=&quot; &amp; Server.MapPath(&quot;base.mdb&quot;)

SQL = &quot; SELECT * FROM Noticias &quot;
rs.Open SQL, oConn

ncampos = rs.fields.count - 1

Response.Write &quot;&lt;table&gt;&quot; &amp; vbcrlf
Response.Write &quot;&lt;tr&gt;&quot; &amp; vbcrlf
For i = 0 to ncampos
	Response.Write &quot;&lt;td valign='top' align='center'&gt;&quot;
	Response.Write &quot;&lt;b&gt;&quot;
	Response.Write rs(i).name
	Response.Write &quot;&lt;/b&gt;&quot;
	Response.Write &quot;&lt;/td&gt;&quot; &amp; vbcrlf
Next

if rs.EOF &lt;&gt; TRUE then
rs.MoveFirst
Do While rs.EOF &lt;&gt; TRUE

Response.Write &quot;&lt;/tr&gt;&quot; &amp; vbcrlf

Response.Write &quot;&lt;tr&gt;&quot; &amp; vbcrlf

For i = 0 to ncampos
	Response.Write &quot;&lt;td valign='top'&gt;&quot;
	Response.Write rs(i)
	Response.Write &quot;&lt;/td&gt;&quot; &amp; vbcrlf
Next
Response.Write &quot;&lt;/tr&gt;&quot; &amp; vbcrlf

rs.MoveNext
Loop
Response.Write &quot;&lt;/table&gt;&quot; &amp; vbcrlf

end if

rs.close
oconn.close
set rs = nothing
set oconn = nothing

saludos