Сейчас я чувствую себя действительно неприятным. Следующее достаточно просто?
Кода -копия выглядит следующим образом:
<%
DiMi, J, Icols
i = 0 '// определить I для цикла
iCols = 3 '// Сколько столбцов там в ряд (положительное целое число)
Response.write ("<tablewidth =" "100%" "border =" "1" "cellscess =" "2" "cellPadding =" "0" "> <Tr>"
Dowhilenotors.eof '// start output record set with forors.recordcountnext, также в порядке
Ifi> 0andimodicols = 0thenresponse.write ("</tr> <tr>" & vbnewline) '// Если количество столбцов равно разрыву линии ICOLS
i = i+1
Response.write ("<tdwidth =" "" "& formatpercent (1/icols, 0) &" ""> output "& i &" record </td> "& vbnewline)
Or.movenext
Loop '// Завершать набор результатов вывода
или
Forj = 1toIcols-1 '// Начните восполнять пустые записи и до 1 ICOLS-1
Ifimodicols = 0tenexitfor '// Количество столбцов достаточно ICOLS больше не будет выходить
i = i+1
Response.write ("<tdwidth =" "" "& formatpercent (1/icols, 0) &" ""> заполните "& j &" record </td> "& vbnewline)
Следующий
Response.write ("</tr> </table>" & vbnewline) '// Выходная таблица
%>