cioè

codice:
<% Dim carica
carica="" 

Do while Not objRs.EOF 

IF Carica<>objRs("CaricaSocieta") THEN 
     Carica=objRs("CaricaSocieta") 
     response.write ("<p class='nomecategoria'>" + objRs("CaricaSocieta") +"</p><ul class='elencocategoria'>") 
END IF 

%> 
response.write ("[*]" + <%= objRs("risultato") %> + "") 

<% else %> response.write ("[/list]") 
 
<% 
objRs.MoveNext 
Loop 
objRs.Close 
Set objRs = Nothing 

Cn.Close 
Set Cn = Nothing 


%>
o bisogna aggiungere un'altra if?

Grazie per le celere risposta di prima