Repetir regin ...excepto el primer registro

[AiSA]

Pues quiero repetir region de registros, pero quisiera que el primero no apareciera.

Mi recordset lo tengo para que muestre del resultado con fecha mas nueva hasta el mas viejito .... solo quiero que el primero mas nuevo no aparezca.

¿alguna idea?


Utilizo ultradev, si alguien me puede ayudar a editar el "comportamiento del servidor" seria mucho mejor, pero si no se puede. ... de cualquier forma por favor una ayudadita con un codigo que haga eso.

Grax

Aitana Santamaría

[urjose]

Puedes hacer un Rs.MoveNext y ya a partir de ahi empezar a desplegar datos en pantalla.

Con eso avanzas al siguiente registro.


Saludos


<center>
<a href=http://comunidadguru.com><img border=0 src=http://comunidadguru.com/imagenes/logos/logo.gif></a>
</center>

[AiSA]

Oye urjose, seria mucha molestia si me explicas un poquito mas?

No tengo mucha experiencia en ASP, o si quieres que escriba el codigo, solo dimelo :P.

Gracias Urjose

[urjose]

Set oConn=Server.CreateObject(&quot;ADODB.Connection&q uot;)
oConn.Open &quot;DSN&quot;
SQL=&quot;SELECT * FROM TABLA&quot;
'Ejecutamos la query
Set Rs=oConn.Execute(SQL)
Rs.MoveNext
'Con lo anterior nos movemos al segundo registro devuelto.
'Ahora si empezamos a desplegar en pantalla.
Do While Not Rs.EOF
'Mostramos los datos en la tabla
Rs.MoveNext
Loop

Saludos, si no quedo claro pues vemos que hacemos.

Saludos


<center>
<a href=http://comunidadguru.com><img border=0 src=http://comunidadguru.com/imagenes/logos/logo.gif></a>
</center>

[AiSA]

Mil Gracias Urjose

Ahorita mismo lo intento :)

Aitana Santamaría

[AiSA]

Urjose, te vuelvo a molestar porque el codigo que genera ultradev es un poco raro y no lo he podido adaptar, mira el codigo completo de la pagina que estoy usando es asi ...

&lt;%@LANGUAGE=&quot;VBSCRIPT&quot; CODEPAGE=&quot;1252&quot;%&gt;
&lt;!--#include file=&quot;Connections/connMySQL.asp&quot; --&gt;
&lt;%
Dim Recordset1__MMColParam
Recordset1__MMColParam = &quot;noticia&quot;
If (Request.QueryString(&quot;tipo_campo&quot;) &lt;&gt; &quot;&quot;) Then
Recordset1__MMColParam = Request.QueryString(&quot;tipo_campo&quot;)
End If
%&gt;
&lt;%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject(&quot;ADODB.Recordset&quot;)
Recordset1.ActiveConnection = MM_connMySQL_STRING
Recordset1.Source = &quot;SELECT * FROM repo_news WHERE tipo_campo = '&quot; + Replace(Recordset1__MMColParam, &quot;'&quot;, &quot;''&quot;) + &quot;' ORDER BY ID_News_rep DESC&quot;
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%&gt;
&lt;%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = 10
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
%&gt;
&lt;html&gt;
&lt;head&gt;
&lt;title&gt;Untitled Document&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&gt;
&lt;%
While ((Repeat1__numRows &lt;&gt; 0) AND (NOT Recordset1.EOF))
%&gt;
&lt;%=(Recordset1.Fields.Item(&quot;breve&quot;).V alue)%&gt;
&lt;%

Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Recordset1.MoveNext()
Wend
%&gt;
&lt;/body&gt;
&lt;/html&gt;
&lt;%
Recordset1.Close()
Set Recordset1 = Nothing
%&gt;

Por cierto, donde aprendiste programar ASP ?

[urjose]

Recordset1.Open()
Recordset1.MoveNext 'Esta es la nueva línea.
Recordset1_numRows = 0


Y aprendi a programar de forma autodidacta. Me compre un libro, tuve un proyecto cuando no sabia nada de ASP, y tuve que aprender a la de a fuerzas, ya despues de eso todo es practica y mas proyectos.

Saludos


<center>
<a href=http://comunidadguru.com><img border=0 src=http://comunidadguru.com/imagenes/logos/logo.gif></a>
</center>

[AiSA]

Funciona :) :) :) :) :)

¡¡¡¡¡¡¡¡ Gracias paisano ¡¡¡¡¡¡¡¡¡¡¡¡







Aitana Santamaría