<%
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 DISTINCT 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>"
  indice = 1 
  for i = 1 to numRighe 
    Response.Write "<tr>" 
    for conta=1 to numCols 
      if indice <= numCat then
        response.write "<td valign='top'><table>" 
        response.write "<tr><th>" & arrdati(0,indice-1) & "</th></tr>" 
        strSQL="SELECT notizia, pagina FROM newslinks WHERE categoria = '" & arrdati(0,indice-1) & "';" 
        rs.open strSQL, cn 
        while not rs.eof 
        Response.write "<tr><td><a href='" & rs("pagina") &"'>" & rs("notizia") & "</a></td></tr>"
        rs.MoveNext
        wend 
        rs.close 
      else 
        response.write "<tr><th>&nbsp;</th></tr>" 
        response.write "<tr><td>&nbsp;</td></tr>" 
      end if 
      Response.Write "</table></td>" 
      indice = indice+1 
    next 
    Response.Write "</tr>" 
    indice = indice + 1 
  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
%>