Como gerar o conjunto de registros ASP na exibição da tabela de n colunas

Alguns dias atrás, alguns internautas perguntaram: Como gerar o conjunto de registros ASP em uma exibição tabular com n colunas. Agora escrevi um para a conveniência de todos.
'Definir variáveis
Dim cn,rs,Sql

Sql = "select CustomerID from Orders"

'Número total de registros
Dim TotalNumbe
Definir cn = Server.CreateObject("ADODB.Connection")
cn.Open "Provider=SQLOLEDB.1;ID do usuário=sa;Catálogo inicial=NorthWind;Fonte de dados=.;Senha=;"

Definir rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, cn, 3, 1
Número Total = rs.RecordCount
Se NúmeroTotal = 0 Então
Response.Write "Nenhuma saída registrada."
'www.downcodes.com
Outro
Dim jj,nEsquerda,cCol
jj = 0
nCol = 415
nLeft = nCol- (TotalNumber Mod nCol)
Se nLeft = nCol Então nLeft = 0
Response.Write "<borda da tabela><tr>" & vbCrLf
Embora não seja rs.EOF
Response.Write "<td>" & rs("CustomerID") & "</td>" & vbCrLf
'Se (jj Mod nCol) = (nCol - 1) E jj <> TotalNumber - 1 Então Response.Write "</tr><tr>" & vbCrLf
'Se (jj Mod nCol) = (nCol - 1) E jj = TotalNumber-1 Então Response.Write "</tr>" & vbCrLf

Se (jj Mod nCol) = (nCol - 1) Então
Se jj <> TotalNumber - 1 Então
Resposta.Write "</tr><tr>" & vbCrLf
Outro
Response.Write "</tr>" & vbCrLf
Terminar se
Terminar se
jj = jj + 1
rs.MoveNext
Wend
Se nLeft <> 0 E nLeft <> nCol Então
Se nCol <Número Total Então
Para i = 1 para nEsquerda
Response.Write "<td>&nbsp;</td>" & vbCrLf
Próximo
Terminar se
Response.Write "</tr>" & vbCrLf
Terminar se
Resposta.Escreva "</table>"
Terminar se
rs.Fechar
Setrs=Nada
cn.Fechar
Definir cn = Nada
Resposta.Fim