Ciao Ragazzi sto utilizzando la classe WBclouds di Imente, se la utilizzo in modo canonico funziona bene:
codice:
<%
dim objCloud
set objCloud = new wbClouds
objCloud.init()
objCloud.baseUrl = "/categoria.asp?"
objCloud.minSize = 11
objCloud.maxSize = 22

call objCloud.add("agenda",15,"cat=agenda")
call objCloud.add("attualità",266,"cat=attualità")
call objCloud.add("brevi",1,"cat=brevi")
call objCloud.add("cronaca",167,"cat=cronaca")
call objCloud.add("cronache regionali",80,"cat=cronache regionali")
call objCloud.add("politica",100,"cat=politica")
call objCloud.add("provincia regionale",19,"cat=provincia regionale")
call objCloud.add("spettacoli",7,"cat=spettacoli")
call objCloud.add("sport",67,"cat=sport")

call objCloud.sort("name","asc")

call objCloud.print()
%>
Mentre se cerco di utilizzarla dentro un ciclo mi visualizza i tag ma tutti della stessa grandezza. Ecco quello che cerco di fare:
codice:

<%

CategoriaSQL="SELECT * FROM Categorie WHERE Attivazione=TRUE"
Set CategoriaRS = Server.CreateObject("ADODB.Recordset")
Set CategoriaRS = objConn.Execute(CategoriaSQL)

While not CategoriaRS.EOF

   Id        = CategoriaRS("Id")
   Nome      = CategoriaRS("Nome_Categoria")
   strSQL    = "SELECT COUNT(Id) AS totaleRecord FROM Articoli WHERE Id_Categoria="&Id
   Set objRS = Server.createObject("ADODB.Recordset")
   objRS.Open strSQL, objConn
   Totale    = objRS("totaleRecord")
   
   Dim objCloud
   Set objCloud = new wbClouds
   objCloud.init()
   objCloud.baseUrl = "/categoria.asp?"
   objCloud.minSize = 11
   objCloud.maxSize = 22
         
   Call objCloud.add(Nome,Totale,"cat="&Nome)
   
   Call objCloud.sort("name","asc")

   Call objCloud.print()
      
CategoriaRS.MoveNext
Wend

objRS.Close
Set objRS = Nothing
CategoriaRS.Close
Set CategoriaRS = Nothing
objConn.Close
Set objConn = Nothing
%>
In definitiva dovrei riuscire ad ottenere lo stesso risultato del primo script utilizzando il secondo, secondo voi cosa sbaglio?

Grazie