considerando che ho una tabella cosi

campo serie campo articolo

atollo atollo 54
atollo atollo 64
babis babis 12
babis babis 52

devo stampare a video gli articoli raggruppati per serie ma inseriti in una tabella divisa per 4 colonne.

io ho creato questo codice, ma c'è ancora qualcosa che non va e non capisco cosa, nella creazione della tabella... sapete aiutarmi????

<%
Dim rs
Set rs=Server.CreateObject("ADODB.Recordset")
contatore = 0
rs.Open "SELECT * FROM TABtavoli ORDER BY serie ASC, IDtavolo ASC", conn

appo_serie = ""

do while not rs.EOF
serie = rs("serie")

if appo_serie <> serie then
contatore = 0
response.write "<table border='1'><tr><td>"
response.write rs("serie")&"</td></tr><tr>"
appo_serie = serie
else
If contatore = 5 Then
contatore = 0
response.write "</tr><tr>"
else
response.write "<td>"
response.write contatore &" - "
response.write rs("articolo") &" - "
response.write "</td>"
End If

end if

rs.MoveNext
contatore = contatore + 1
loop

%>