Scusa grafichero,
ma era davvero così difficile seguire il mio suggerimento?

Tradotto in termini di codice ecco quello che ti avevo suggerito:

<% 
Set cn=Server.CreateObject("ADODB.Connection") 
cn.Open = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("news.mdb") 
Set rs=Server.CreateObject("ADODB.Recordset") 
strSQL="SELECT categoria FROM newslinks order by categoria" 
rs.Open strSQL,cn,0,1 
if not rs.eof then
  arrdati=rs.getrows() 
  rs.close
  numCat = Ubound(arrdati,2)+1
  numCols = 4   'numero di colonne su cui ripartire le categorie
  numRighe = Cint(numCat/numCols + 0.5)
  response.write "<table>"
  for i = 1 to numRighe
    Response.Write "<tr>"
    for conta=1 to numCols
      if conta <= numCat
        response.write "<td><table>"
        response.write "<tr><th><b><%=arrdati(0,conta-1)%></b> </th></tr>"
        strSQL="SELECT notizia, pagina FROM newslinks WHERE categoria = '" & arrdati(0,conta-1) & "';"
        rs.open strSQL, cn
        while not rs.eof
          Response.write "<tr><td><a href='" & rs("pagina") &"'>" & rs("notizia") & "</a></td></tr>"
        wend
        rs.close
      else 
        response.write "<tr><th>&nbsp;</th></tr>" 
        response.write "<tr><td>&nbsp;</td></tr>" 
      end if
      Response.Write "</table></td>"
    next
    Response.Write "</tr>" 
  next
  response.write "</table>" 
  erase arrdati
else
  Response.Write "non ci sono categorie inserite"
  rs.close
end if
set rs=nothing
cn.close
set cn=nothing
%>

Prova a stamparti il mio primo topic e confrontalo con il codice riportato sopra.
Logicamente, potrà esserci qualche errore ortografico che, testandolo, potrai eliminare...

Ciao