ASP exibe dados em formato tabular, o que facilita a saída de conteúdo com várias linhas e colunas. 'Definir variáveis
Dim cn,rs,Sql
Sql = selecione CustomerID em pedidos
'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 não possui saída registrada.
Outro
Dim jj,nEsquerda,cCol
jj = 0
nCol = 415
nLeft = nCol- (TotalNumber Mod nCol)
Se nLeft = nCol Então nLeft = 0
Response.Write <table border><tr> & vbCrLf
Embora não seja rs.EOF
Response.Write <td> & rs(CustomerID) & </td> & vbCrLf
'If (jj Mod nCol) = (nCol - 1) E jj <> TotalNumber - 1 Then 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
Response.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> </td> & vbCrLf
Próximo
Terminar se
Response.Write </tr> & vbCrLf
Terminar se
Resposta.Write </table>
Terminar se
rs.Fechar
Setrs=Nada
cn.Fechar
Definir cn = Nada
Resposta.Fim