Cómo generar un conjunto de registros ASP en la visualización de una tabla de n columnas

Hace unos días, algunos internautas preguntaron: Cómo generar el conjunto de registros ASP en una visualización tabular con n columnas. Ahora he escrito una para comodidad de todos.
'Definir variables
Dim cn,rs,Sql

Sql = "seleccione CustomerID de Pedidos"

'Número total de registros
Número total oscuro
Establecer cn = Server.CreateObject("ADODB.Connection")
cn.Open "Provider=SQLOLEDB.1;ID de usuario=sa;Catálogo inicial=NorthWind;Fuente de datos=.;Contraseña=;"

Establecer rs = Server.CreateObject("ADODB.Recordset")
rs.Abrir SQL, cn, 3, 1
NúmeroTotal = rs.RecordCount
Si NúmeroTotal = 0 Entonces
Respuesta.Escriba "No se registró ningún resultado".
'www.downcodes.com
Demás
Dim jj,nIzquierda,cCol
jj = 0
nCol = 415
nIzquierda = nCol- (Número Total Mod nCol)
Si nIzquierda = nCol Entonces nIzquierda = 0
Respuesta.Escribir "<borde de tabla><tr>" & vbCrLf
Mientras no rs.EOF
Respuesta.Escribir "<td>" & rs("CustomerID") & "</td>" & vbCrLf
'Si (jj Mod nCol) = (nCol - 1) Y jj <> TotalNumber - 1 Entonces Response.Write "</tr><tr>" & vbCrLf
'Si (jj Mod nCol) = (nCol - 1) y jj = TotalNumber-1 Entonces Response.Write "</tr>" & vbCrLf

Si (jj Mod nCol) = (nCol - 1) Entonces
Si jj <> NúmeroTotal - 1 Entonces
Respuesta.Escribir "</tr><tr>" & vbCrLf
Demás
Respuesta.Escribir "</tr>" y vbCrLf
Terminar si
Terminar si
jj = jj + 1
rs.MoverSiguiente
Encaminarse a
Si nLeft <> 0 y nLeft <> nCol entonces
Si nCol < NúmeroTotal Entonces
Para i = 1 a nIzquierda
Respuesta.Escribir "<td>&nbsp;</td>" & vbCrLf
Próximo
Terminar si
Respuesta.Escribir "</tr>" y vbCrLf
Terminar si
Respuesta.Escribir "</table>"
Terminar si
rs.Cerrar
Configurar=Nada
cn.Cerrar
Establecer cn = Nada
Respuesta.Fin