Buenas de nuevo.
No me ha servido éste código, pero sí el anterior. Probando probando he podido introducir la base de datos y todo va bien, menos... que no sé porqué me elimina siempre el primer registro.
Si ordeno por nombre, me eliminará el primero que empieze por A, si lo hago por número, pues me eliminará el 1...y no sé cómo arreglarlo.
De hecho, es que tengo que decirle incluso que existe un registro menos para que no me dé el error de que EOF o BOF es True y todo eso..
El código empieza así:
<%
Registros=6 (debería ser 7, pero entonces me daría error)
Set obj_Conn = Server.CreateObject ("ADODB.Connection")
Set obj_RS = Server.CreateObject ("ADODB.RecordSet")
Obj_Conn.Open "db"
SQL= "Select * FROM * Order By Nombre Asc"
Obj_RS.Open SQL, Obj_Conn, 3,3
%>
<%
For k = 0 to CInt(Registros) Step 4
temp = temp & " " & k
Next 'k
arreglo = Split(Replace(Trim(temp), " ", ","),",")
For z = 0 to UBound(arreglo)
arreglo(z) = arreglo(z)
Next
%>
<table border="0" width="100%" cellspacing="1" id="table6" style="border-width: 0px">
<tr>
<%
For a = 1 to CInt(Registros)
Obj_RS.MoveNext
%>
A partir de aquí desplego ya la base de datos, y todo guay.. salvo ese detalle... ¿alguna idea?
Gracias por todo.
_-----------------------------------------------------------------------
Cita:
Iniciado por Adler
Hola
Prueba así
Código asp:
Ver original' conexión bd
' consulta
set rs = oConn.Execute(SQL)
registros = rs.getrows()
rs.Close
Set rs = Nothing
%>
<table>
<tr>
<%
For i = 0 to UBound(registros,2)
If i Mod 5 = 0 Then
Response.Write "</tr><tr>"
End If
Response.Write "<td>" & registros(campo,i) & "</td>"
Next 'i
%>
</tr>
</table>
Suerte