como fazer isto para meus usuarios

[Carlos_Seiji 0]

correção abaixo.

 

<%ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("ok/db/banco/download.mdb")Set conn = Server.CreateObject("ADODB.Connection")conn.open ConnectStringset rs = conn.execute("SELECT distinct categorias.nome ,count( *) as total FROM categorias INNER JOIN download ON categorias.id = download.categoria group by categorias.nome;")Do Until RS.Eof   Select Case RS("nome")	  Case "Análise de Tráfego"		  at = RS("total")	  Case "Autenticação de Usuário"		  au = RS("total")	  Case "Banco de dados"		  bd = RS("total")	  Case "Banner Rotativo"		  br = RS("total")	  Case "Bibliotecas"		  bb = RS("total")	  Case "Blog"		  bg = RS("total")	  Case "Bookmark"		  bk = RS("total")   End Select   RS.MoveNextLoop%>( <%= at %>) Análise de Tráfego( <%= au %>) Autenticação de Usuário( <%= bd %>) Banco de dados( <%= br %>) Banner Rotativo( <%= bb %>) Bibliotecas(<%= bg %> ) Blog(<%= bk%> ) Bookmark