<%
array_Numeri = Split("1, 2, 3, 4, 5, 6, 7, 8, 9, 10", ", ")

If IsArray(array_Numeri) Then
  'numero di colonne da visualizzare
  colonne = 3
 
  'calcoliamo il numero massimo di righe
  maxRighe = (UBound(array_Numeri)+1) / colonne
  'se il numero non è intero arrotondiamo all'intero successivo
  If Int(maxRighe) < maxRighe Then maxRighe = Int(maxRighe) + 1

    inizio = 0
%>
<table width="100%" border="0" cellspacing="0" cellpadding="3" align="center">
<tr>
<%
    For i = 1 to colonne %>
<td valign="top">
<table>
<% 
    fine = inizio + maxRighe - 1
    If fine > UBound(array_Numeri) Then fine = UBound(array_Numeri)
      For j = inizio To fine %>
<tr><td><p><%=array_Numeri(j)%></p></td></tr>
<%
      Next %>
</table></td>
<% 
  inizio = fine +1
  Next %>
</tr>
</table>
<%
End If

If IsArray(array_Numeri) Then Erase array_Numeri
%>