05/08/2002, 13:14
|
| | | Fecha de Ingreso: diciembre-2001
Mensajes: 180
Antigüedad: 23 años, 4 meses Puntos: 1 | |
| Re: Repetir regin ...excepto el primer registro
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 ...
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/connMySQL.asp" -->
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "noticia"
If (Request.QueryString("tipo_campo") <> "") Then
Recordset1__MMColParam = Request.QueryString("tipo_campo")
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_connMySQL_STRING
Recordset1.Source = "SELECT * FROM repo_news WHERE tipo_campo = '" + Replace(Recordset1__MMColParam, "'", "''") + "' ORDER BY ID_News_rep DESC"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 10
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))
%>
<%=(Recordset1.Fields.Item("breve").V alue)%>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Recordset1.MoveNext()
Wend
%>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
Por cierto, donde aprendiste programar ASP ?
|