ASP affiche les données sous forme de tableau, ce qui facilite la sortie de contenu multi-lignes et multi-colonnes. 'Définir les variables
Dim cn, rs, SQL
SQL = sélectionnez CustomerID dans les commandes
'Nombre total d'enregistrements
Dim Nombre Total
Définir cn = Server.CreateObject (ADODB.Connection)
cn.Open Provider=SQLOLEDB.1;ID utilisateur=sa;Catalogue initial=NorthWind;Source de données=.;Mot de passe=;
Définir rs = Server.CreateObject (ADODB.Recordset)
rs.Open SQL, cn, 3, 1
TotalNumber = rs.RecordCount
Si NombreTotal = 0 Alors
Response.Write n’a aucune sortie enregistrée.
Autre
Dim jj,nLeft,cCol
jj = 0
nCol = 415
nLeft = nCol- (TotalNumber Mod nCol)
Si nLeft = nCol Alors nLeft = 0
Response.Write <bordure de la table><tr> & vbCrLf
Bien que ce ne soit pas rs.EOF
Réponse.Write <td> & rs(CustomerID) & </td> & vbCrLf
'Si (jj Mod nCol) = (nCol - 1) Et jj <> TotalNumber - 1 Alors Response.Write </tr><tr> & vbCrLf
'Si (jj Mod nCol) = (nCol - 1) Et jj = TotalNumber-1 Alors Response.Write </tr> & vbCrLf
Si (jj Mod nCol) = (nCol - 1) Alors
Si jj <> TotalNumber - 1 Alors
Réponse.Write </tr><tr> & vbCrLf
Autre
Réponse.Write </tr> & vbCrLf
Fin si
Fin si
jj = jj + 1
rs.MoveNext
Wende
Si nLeft <> 0 Et nLeft <> nCol Alors
Si nCol < TotalNumber Alors
Pour i = 1 à nGauche
Réponse.Write <td> </td> & vbCrLf
Suivant
Fin si
Réponse.Write </tr> & vbCrLf
Fin si
Réponse.Write </table>
Fin si
rs.Fermer
Setrs=Rien
cn.Fermer
Définir cn = Rien
Réponse.Fin