como optengo columnas y no filas desde una BD?

[Adler]

Hola

De esto hace ya 6 años, ¿un nuevo record?

Prueba con esto

Código asp:

<%
total_registros_encontrados = 52
 
For j = 0 to CInt(total_registros_encontrados) Step 5
temp = temp & " " & j
Next 'j
 
arreglo = Split(Replace(Trim(temp), " ", ","),",")
 
For x = 0 to UBound(arreglo)
arreglo(x) = arreglo(x)
Next
%>
 
<table border="1">
<tr>
 
<%
For i = 1 to CInt(total_registros_encontrados)
Response.Write "<td>" & i & "</td>"
cad = " i = " & Join(arreglo, " or  i  = ")
If eval(cad) Then
fila = i / 5
Response.Write "</tr><tr>"
End if
Next 'i
%>
</tr>
</table>
 

Suerte