Dopo varie prove ancora nulla.
Qualcosa in più sono riuscito a fare ma non è ancora giusto.

questa la parte del codice che ho sostituito.
codice:
<table border="1px" bordercolor="#999999" style="border-style:none; border-width:1px; border-color:black" width='100%' cellspacing="0" cellpadding="0">
<tr>
<%
    ' IMPOSTO A 0 IL CONTATORE
    dim contatore
    contatore = 0
    ' ESEGUO IL CICLO
    While objrs.EOF = False
        ' IMPOSTO LA PAGINAZIONE A 3 COLONNE ED N RIGHE
        ' IN FUNZIONE DEL NUMERO DI RECORD PRESENTI NEL DB
        If contatore = 3 Then
            contatore = 0
            Response.Write "</tr><tr>"
        End If

'IF cat<>objRs("categoria") THEN
'	cat=objRs("categoria")
%>
<td colspan="5" align="center"><%= objRs("categoria") %></td>
<%
'end if
objRs.MoveNext
        contatore = contatore + 1
Wend
Loop
%>
</tr>
</table>
- primo problema: ora mi visualizza solo il primo "campo" (vedi codice del primo posto) mentre senza questa parte di codice me li fa vedere tutti

- secondo problema: mi visualizza correttamente le tre colonne ma come vedete ho dovuto mettere le virgolette davanti all' IF cat<>objRs("categoria") THEN ecc. Se le tolgo mi visualizza il raggruppamento non più in 3 colonne ma in una singola colonna.

Spero potete darmi una mano perchè sto impazzendo.

Grazie