Mostrar resultados de una tabla con un for

[Adler]

Hola

Prueba con esto

Código asp:

<%
Dim total_registros_encontrados, j, temp, x, arreglo, i
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>"
If i Mod 5 = 0 Then 
Response.Write "</tr><tr>"
End If
Next 'i
 
%>
</tr>
</table>
 

Suerte