Eu me sinto muito problemático agora. O seguinte é o suficiente?
A cópia do código é a seguinte:
<%
Dimi, J, icols
i = 0 '// define i para loop
icols = 3 '// Quantas colunas existem em uma fileira (número inteiro positivo)
Response.Write ("<tabelawidth =" "100%" "Border =" "1" "CellSpacing =" "2" "CellPadding =" "0" "> <tr>" & vbNewline) '// Cabeçalho da tabela de saída e primeiro TR
DowhileNotors.eof '// Iniciar o registro de saída definido com forors.recordCountNext, também ok
Ifi> 0andimodicols = 0ThenResponse.write ("</tr> <tr>" & vbNewline) '// se o número de colunas for igual à quebra da linha ICOLS
i = i+1
Response.Write ("<tdwidth =" "" e formatPercent (1/icols, 0) & "
Ors.Movenext
Loop '// encerrar o conjunto de registros de saída
Ors.close
Forj = 1toicols-1 '// Comece a compensar registros vazios e até 1 icols-1
Ifimodicols = 0thenexit para '// O número de colunas é suficiente ICOLS não será mais ousado
i = i+1
Response.Write ("<tdwidth =" "" & formatPercent (1/icols, 0) & "
Próximo
Response.Write ("</tr> </ table>" & vbNewline) '// Tail da tabela de saída
%>