-----------------------------------------------------------------
Dim conexion
Dim rds, tabla, sql
Dim J, I
Set conexion = Server.CreateObject("ADODB.Connection")
conexion.Open "Vivienda"
Set rds = Server.CreateObject("ADODB.Recordset")
sql = "SELECT pabellon, cliente FROM stands" & " WHERE ocupado = 1"
set rds = conexion.Execute(SQL)
tabla = rds.GetRows
rds.Close
set rds = nothing
conexion.Close
set conexion = nothing
Response.Write("<TABLE>")
for I = 0 to UBound(tabla,2)
Response.Write("<TABLE>")
for J = 0 to Ubound(tabla, 1)
Response.Write("<TD>" & tabla(J, I) & "</TD>")
next
Response.Write("</TR>")
next
Response.Write("</TABLE>")
--------------------------------------------------------------------
la verdad que si me interesa muchisimo , es para hoy

salud2
