Repeat nel GROUP BY

[nikitoz78bs]

Ho una tabella query_aree con prodotti associati ad aree. Gli stessi nomi delel aree si ripetono e quindi faccio un group by per raggrupparli:
Ho questo Recordset:

<%
Dim Rc_aree_elenco
Dim Rc_aree_elenco_numRows

Set Rc_aree_elenco = Server.CreateObject("ADODB.Recordset")
Rc_aree_elenco.ActiveConnection = MM_datacat20_STRING
Rc_aree_elenco.Source = "SELECT areatitolo FROM query_aree GROUP BY areatitolo ORDER BY areatitolo ASC"
Rc_aree_elenco.CursorType = 0
Rc_aree_elenco.CursorLocation = 2
Rc_aree_elenco.LockType = 1
Rc_aree_elenco.Open()

Rc_aree_elenco_numRows = 0
%>

Vedo il record nelal pagina:

<%=(Rc_aree_elenco.Fields.Item("areatit").Value) %>

E voglio vedere tutte le aree:


<%
While ((Repeat1__numRows <> 0) AND (NOT Rc_aree_elenco.EOF))
%>

<%=(Rc_aree_elenco.Fields.Item("areatit").Value) %>

<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Rc_aree_elenco.MoveNext()
Wend
%>

Ma così non me le ragruppa più e me le fa vedere tutte... come posso risolvere? E' corretto usare il repeat nel GROUP BY?

GRAZIE

[alexba64]

Come fai a stampare a video "areatit" se no ce l'hai nella select ?

Hai provato cosi ?

<% do while not Rc_aree_elenco.eof %>

<%=Rc_aree_elenco("areatitolo")%>

<%
Rc_aree_elenco.movenext
loop	
%>