Как вывести набор записей ASP в таблицу из n столбцов

Несколько дней назад некоторые пользователи сети спросили: как вывести набор записей ASP в виде таблицы с n столбцами. Теперь я написал один для всеобщего удобства.
'Определить переменные
Dim cn,rs,Sql

Sql = "выбрать CustomerID из заказов"

'Общее количество записей
Дим ТоталНумбе
Установите cn = Server.CreateObject("ADODB.Connection")
cn.Open "Provider=SQLOLEDB.1;ID пользователя=sa;Исходный каталог=NorthWind;Источник данных=.;Пароль=;"

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, cn, 3, 1
TotalNumber = rs.RecordCount
Если ОбщееКоличество = 0 Тогда
Ответ. Напишите «Выходные данные не зарегистрированы».
'www.downcodes.com
Еще
Дим jj,nLeft,cCol
jj = 0
нКол = 415
nLeft = nCol- (TotalNumber Mod nCol)
Если nLeft = nCol Тогда nLeft = 0
Response.Write "<граница таблицы><tr>" и vbCrLf
Пока не rs.EOF
Response.Write "<td>" & rs("CustomerID") & "</td>" & vbCrLf
'If (jj Mod nCol) = (nCol - 1) And jj <> TotalNumber - 1 Тогда Response.Write "</tr><tr>" & vbCrLf
'If (jj Mod nCol) = (nCol - 1) And jj = TotalNumber-1 Тогда Response.Write "</tr>" & vbCrLf

Если (jj Mod nCol) = (nCol - 1) Тогда
Если jj <> TotalNumber - 1 Тогда
Response.Write "</tr><tr>" и vbCrLf
Еще
Response.Write "</tr>" и vbCrLf
Конец, если
Конец, если
jj = jj + 1
rs.MoveNext
Венд
Если nLeft <> 0 и nLeft <> nCol Тогда
Если nCol < TotalNumber Тогда
Для i = от 1 до nLeft
Response.Write "<td>&nbsp;</td>" & vbCrLf
Следующий
Конец, если
Response.Write "</tr>" и vbCrLf
Конец, если
Response.Write "</table>"
Конец, если
rs.Close
Setrs=Ничего
cn.Закрыть
Установить cn = Ничего
Ответ.Конец