ORDER BY Id DESC

[indis]

Lo unico que yo quiero es que salgan de primero los ultimo que se grabo en la base de datos. Hasta ahora me sale de ultimo el que grabe de ultimo.
Mi base de datos se llama afiliados y mi tabla afiliados, tiene Id, Nombre, apellido y mensaje.
Que tengo malo?

-----------
<%
Dim DB, TBL
Set DB = Server.CreateObject("ADODB.Connection")
Set TBL = Server.CreateObject("ADODB.RecordSet")
DB.Mode = adModeReadWrite
DB.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + Server.MapPath("afiliados.mdb"))

TBL.Open "afiliados" ,DB
SQL="SELECT * FROM afiliados ORDER BY Id DESC"
While NOT TBL.EOF
%>
-----------------
si puse descendiente, porque no me sale?

SQL="SELECT * FROM afiliados ORDER BY Id DESC"


gracias, soy muy nuevo en esto.

[g_susdaniel]

Prueba esto...

<%Dim DB,sql,basedatos
Set DB=Server.CreateObject("ADODB.Connection&quot ;)
basedatos=Server.MapPath("afiliados.mdb" )
DB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& basedatos & ";"
sql="select * FROM afiliados ORDER By Id DESC;"
set rs=DB.execute(sql)
Do While Not rs.Eof
%>

sustituyendo lo ke tienes

<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>

[indis]

Ahora me sale un error:
Error Type:
Microsoft VBScript compilation (0x800A0400)
Expected statement
muestra.asp, line 49
Wend

Porque es tan diferente tu programacion a la que yo tenia?, son dosformas de programar o esta malo lo mio ?

esto es lo que tengo despues de lo que te publique en el mensaje anterior.
Gracias por ayudarme y dedicarme tu tiempo.

----------------

&lt;table width=&quot;57%&quot; border=&quot;0&quot; cellspacing=&quot;0&quot; cellpadding=&quot;0&quot;&gt;
&lt;tr&gt;
&lt;td height=&quot;72&quot; bgcolor=&quot;#0000FF&quot;&gt;
&lt;table width=&quot;570&quot; border=&quot;0&quot; cellspacing=&quot;1&quot; cellpadding=&quot;0&quot;&gt;
&lt;tr bgcolor=&quot;#009EEA&quot;&gt;
&lt;td width=&quot;200&quot; height=&quot;19&quot;&gt; &lt;font color=&quot;#0099FF&quot;&gt;.&lt;/font&gt;
&lt;%Response.Write(&quot;&lt;b&gt;Nombre: &lt;/b&gt;&quot; &amp; TBL(&quot;Nombre&quot;))%&gt;
&lt;/td&gt;
&lt;td width=&quot;200&quot; height=&quot;19&quot;&gt; &lt;font color=&quot;#0099FF&quot;&gt;. &lt;/font&gt;
&lt;%Response.Write(&quot;&lt;b&gt;Apellido: &lt;/b&gt;&quot; &amp; TBL(&quot;Apellido&quot;))%&gt;
&lt;/td&gt;
&lt;td width=&quot;200&quot; height=&quot;19&quot;&gt; &lt;font color=&quot;#0099FF&quot;&gt;.&lt;/font&gt;
&lt;%Response.Write(&quot;&lt;b&gt;Pais: &lt;/b&gt;&quot; &amp; TBL(&quot;Pais&quot;))%&gt;
&lt;/td&gt;
&lt;/tr&gt;
&lt;tr bgcolor=&quot;#88D9FF&quot;&gt;
&lt;td colspan=&quot;3&quot; height=&quot;22&quot;&gt; &lt;font color=&quot;#88D9FF&quot;&gt;.&lt;/font&gt;
&lt;%Response.Write(&quot;&lt;b&gt;Mensaje: &lt;/b&gt;&quot; &amp; TBL(&quot;Mensaje&quot;))%&gt;
&lt;p&gt;&amp;nbsp;&lt;/p&gt;
&lt;/td&gt;
&lt;/tr&gt;
&lt;/table&gt;
&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td height=&quot;28&quot; bgcolor=&quot;#FFFFFF&quot;&gt;&amp;nbsp; &lt;/td&gt;
&lt;/tr&gt;
&lt;/table&gt;
&lt;%

TBL.MoveNext
Wend
TBL.Close

DB.Close

Set DB = Nothing
Set TBL = Nothing

%&gt;

[g_susdaniel]

Me olvide de decirte que para llamr al contenido de un campo tienes que sustituir el TBL por rs por ejemplo para llamar al campo Nombre, seria:

&lt;%= rs(&quot;Nombre&quot;) %&gt;&quot;&gt;

Y lo que tenias no esta malo, lo que pasa es que no tenia mucho tiempo de revisar tu codigo y como ya tenia algo parecido hecho lo busque y adapte a ti...

Pero ya que nos fuimos por mi camino te puedo seguir ayudando, solo pega un grito y si puedo te echo un cable

Suerte ;)

<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>

[indis]

Ahora me sale un error que dice:

Error Type:
Microsoft VBScript compilation (0x800A0400)
Expected statement
muestra.asp, line 51
Wend

-------------------------
yo tengo al final
&lt;%

TBL.MoveNext
Wend
TBL.Close

DB.Close

Set DB = Nothing
Set TBL = Nothing

%&gt;

por favor ayudame de nuevo

Gracias

[g_susdaniel]

Bueno, para ser mas explicito sustituye tus &quot;TBL &quot; por &quot;rs &quot; ,jeje

y sustituye el &quot;wend &quot; por &quot;loop &quot; porque ahora estamos haciendo un do while y no un while

espero te sirva, suerte...

<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>

[indis]

Disculpa que no te respondi antes pero fue hoy que pude probar lo que me dices.
Gracias porfin me funciono.

Es una estupides, pero verlo funcionando me emociono mucho.

Tu sabes como puedo hacer para que me salgan solo 10 registros por pagina y poner un link que diga siguientes?

La pagina quedo de esta forma:
&lt;html&gt;
&lt;head&gt;
&lt;title&gt;Libro de Visitas&lt;/title&gt;
&lt;meta http-equiv=&quot;Content-Type&quot; content=&quot;text/html; charset=iso-8859-1&quot;&gt;
&lt;/head&gt;

&lt;body bgcolor=&quot;#FFFFFF&quot; text=&quot;#000000&quot;&gt;
&lt;%Dim DB,sql,basedatos
Set DB=Server.CreateObject(&quot;ADODB.Connection&quot ;)
basedatos=Server.MapPath(&quot;afiliados.mdb&quot; )
DB.Open &quot;Provider=Microsoft.Jet.OLEDB.4.0;Data Source=&quot;&amp; basedatos &amp; &quot;;&quot;
sql=&quot;select * FROM afiliados ORDER By Id DESC;&quot;
set rs=DB.execute(sql)
Do While Not rs.Eof
%&gt;

&lt;table width=&quot;57%&quot; border=&quot;0&quot; cellspacing=&quot;0&quot; cellpadding=&quot;0&quot;&gt;
&lt;tr&gt;
&lt;td height=&quot;72&quot; bgcolor=&quot;#0000FF&quot;&gt;
&lt;table width=&quot;570&quot; border=&quot;0&quot; cellspacing=&quot;1&quot; cellpadding=&quot;0&quot;&gt;
&lt;tr bgcolor=&quot;#009EEA&quot;&gt;
&lt;td width=&quot;200&quot; height=&quot;19&quot;&gt; &lt;font color=&quot;#0099FF&quot;&gt;.&lt;/font&gt;
&lt;%Response.Write(&quot;&lt;b&gt;Nombre: &lt;/b&gt;&quot; &amp; rs(&quot;Nombre&quot;))%&gt;

&lt;/td&gt;
&lt;td width=&quot;200&quot; height=&quot;19&quot;&gt; &lt;font color=&quot;#0099FF&quot;&gt;. &lt;/font&gt;
&lt;%Response.Write(&quot;&lt;b&gt;Apellido: &lt;/b&gt;&quot; &amp; rs(&quot;Apellido&quot;))%&gt;
&lt;/td&gt;
&lt;td width=&quot;200&quot; height=&quot;19&quot;&gt; &lt;font color=&quot;#0099FF&quot;&gt;.&lt;/font&gt;
&lt;%Response.Write(&quot;&lt;b&gt;Pais: &lt;/b&gt;&quot; &amp; rs(&quot;Pais&quot;))%&gt;
&lt;/td&gt;
&lt;/tr&gt;
&lt;tr bgcolor=&quot;#88D9FF&quot;&gt;
&lt;td colspan=&quot;3&quot; height=&quot;22&quot;&gt; &lt;font color=&quot;#88D9FF&quot;&gt;.&lt;/font&gt;
&lt;%Response.Write(&quot;&lt;b&gt;Mensaje: &lt;/b&gt;&quot; &amp; rs(&quot;Mensaje&quot;))%&gt;
&lt;p&gt;&amp;nbsp;&lt;/p&gt;
&lt;/td&gt;
&lt;/tr&gt;
&lt;/table&gt;
&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td height=&quot;28&quot; bgcolor=&quot;#FFFFFF&quot;&gt;&amp;nbsp; &lt;/td&gt;
&lt;/tr&gt;
&lt;/table&gt;
&lt;%

rs.MoveNext
loop
rs.Close

DB.Close

Set DB = Nothing
Set rs = Nothing
%&gt;
&lt;/body&gt;
&lt;/html

[g_susdaniel]

Que bueno que te este funcionando, poco a poco iras aprendiendo un poko mas... Para paginar los resultados te recomiendo checkes este enlace...

http://www.aspfacil.com/codigo/rspagina.asp<a href='ir.asp?http://www.aspfacil.com/codigo/rspagina.asp' target='_blank'>http://www.aspfacil.com/codigo/rspagina....</a>

Suerte ;)

<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>

[indis]

Lo leo y no se como unir lo que tengo con toda esa programacion.

Como puedo unificar una sola programacion?


gracias