Pues un amigo la verifico y si funciona en su localhost
le puse tambien en la primer linea la opcion del lenguaje y no kiso funcionar asi =( la verdad no se que pueda ser
Código:
<html>
<head> <title>Stands Ocupados</title> </head>
<style>
body { background-color: #FFDE5D; }
</style>
<body>
<% 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 border=""0"">")
Response.Write("<TR>")
Response.Write("<TD><FONT SIZE=""2"" FACE=""Verdana""><b>Stand: </b> </FONT></TD>")
Response.Write("<TD><FONT SIZE=""2"" FACE=""Verdana""><b> Ocupado por:</b> </FONT></TD>")
Response.Write("</TR>")
Response.Write("<br>")
for I = 0 to UBound(tabla,2)
Response.Write("<TR>")
for J = 0 to Ubound(tabla, 1)
Response.Write("<TD><FONT SIZE=""2"" FACE=""Verdana"">" & tabla(J, I) & "</FONT></TD>")
next
Response.Write("</TR>")
next
Response.Write("</TABLE>")
%>
</body>
</html>