Me siento realmente problemático ahora. ¿Es lo siguiente lo suficientemente simple?
La copia del código es la siguiente:
<%
Dimi, J, icols
i = 0 '// Definir i para bucle
icols = 3 '// cuántas columnas hay en una fila (entero positivo)
Respuesta.Write ("<tableWidth =" "100%" "border =" "1" "CellSpacing =" "2" "CellPadding =" "0" "> <tr>" & vbnewline) '// encabezado de la tabla de salida y primer TR
Dowhilenotors.eof '// Inicie el registro de salida Conjunto con forors.RecordCountNext, también está bien
Ifi> 0andiModicols = 0thenResponse.write ("</tr> <tr>" & vbnewline) '// Si el número de columnas es igual a icols line break
i = i+1
Response.Write ("<tdwidth =" "" & FormatParcent (1/icols, 0) y "" ""> salida "& i &" registro </td> "& vbnewline)
ORS.MoVENEXT
Bucle '// finalizar el conjunto de registros de salida
ORS. Clar
Forj = 1toicols-1 '// comienza a compensar registros vacíos, y hasta 1 ICOLS-1
Ifimodicols = 0thenexitfor '// El número de columnas es suficiente icols ya no saldrá
i = i+1
Response.Write ("<tdWidth =" "" & FormatParcent (1/icols, 0) y "" ""> Complete el "& j &" registro </td> "& vbnewline)
Próximo
Response.Write ("</tr> </table>" & vbnewline) '// Tabla de salida Tail
%>