Ver Mensaje Individual
  #4 (permalink)  
Antiguo 27/08/2003, 12:49
webpedaler
 
Fecha de Ingreso: mayo-2001
Mensajes: 87
Antigüedad: 25 años, 5 meses
Puntos: 0
ya aqui esta mi avanze


Código PHP:

<%

set objRS = Server.CreateObject("ADODB.Recordset")

objRS.open "SELECT * FROM tabla", objCON
'set rs = oConn.Execute(SQL)
miTabla = objRS.GetRows
'
Liberamos los objetos ya!!
'objRS.Close
'
set objRS = nothing
'objCON.Close
'
set objCON = nothing
Response
.Write("<TABLE>")

'Recorremos el vector
'
Desde el primero hasta el último "registro"...
for 
I = 0 to UBound(miTabla,2) 
    
'Abrimos una nueva fila
    
  Randomize Timer
  rndNumber = Int(RND * UBound(miTabla,2) )
    Response.Write("<TR>")
    '
Desde el primero hasta el último "campo"...
    for 
J = 0 to Ubound(miTabla, 1)
        
'Imprimo una celda para cada campo
        '
Response.Write("<TD>" & miTabla(J, I) & "</TD>")
        
response.write("<td>"&miTabla(J, rndNumber)&"</td>")
        
        
    
    
next
    Response
.Write("</TR>")
next
Response
.Write("</TABLE>")

%> 
muestro los registros al azar , el problema es que se repiten snifff
no se como borrar el registro que me mostro del arreglo