Query group

[Gio&Ste]

Estraggo delle date da un db in questo modo:

query = "SELECT data FROM elenco WHERE Year(data)="& anno &" And Tipo='" & tipo & "' GROUP BY data ORDER BY data"

Ottento un elenco del tipo:
10/01/2005
17/01/2005
20/01/2005
27/01/2005
31/01/2005
10/02/2005
28/02/2005
03/03/2005
18/03/2005
01/04/2005
08/04/2005
14/04/2005

Vorrei che fosse possibile inserire anche il mese del tipo:
Gennaio
10/01/2005
17/01/2005
20/01/2005
27/01/2005
31/01/2005
Febbraio
10/02/2005
28/02/2005

Devo modificare la query?

[optime]

fai prima a modificare lo script di visualizzazione.

[fraude]

No, ti basta un array.

[Gio&Ste]

Sto provando in questo modo:

<% do until RecSet.EOF%>
					<%	select case Month(data)
						case 1:Response.Write("Gennaio")
.
.
.
.
						case 12:Response.Write("Dicembre")						
						End select%>
					<%Response.Write(Month(data))%>
					"><% =RecSet("data") %>

Manon mi sembra di aver fatto grossi passi in avanti, ottengo sempre Dicembre come mese, non capisco perchè!

[fraude]

Array:

nrMese = (Month(Date))
strMese = (Array("","Gen","Feb","Mar","Apr","Mag","Giu","Lug","Ago","Set","Ott","Nov","Dic"))(nrMese)

Qui trovi tutte le funzioni su date e ore di VBS, compresa MonthName, che restituisce il nome del mese, anche abbreviato.

[Gio&Ste]

    <%
				Set RecSet = Server.CreateObject("ADODB.Recordset") 
				Visa = "SELECT data FROM elenco WHERE Year(data)="& anno &" And Tipo='" & tipo & "' GROUP BY data ORDER BY data" 
				RecSet.Open Visa, objConn, adOpenDynamic, adLockOptimistic
				Dim strAzione1, strAzione2, strAzione3, strAzione4, strAzione5, strAzione6, strAzione7, strAzione8, strAzione9, strAzione10, strAzione11, strAzione12
				strAzione1 = ""	
				strAzione2 = ""
				strAzione3 = ""
				strAzione4 = ""
				strAzione5 = ""
				strAzione6 = ""
				strAzione7 = ""
				strAzione8 = ""
				strAzione9 = ""
				strAzione10 = ""
				strAzione11 = ""
				strAzione12 = ""
	%>
			<h2>Resoconto lavori di <%=tipo%> dell'anno <%=anno%></h2>
            

 
			<div>	
					<%	
						do until RecSet.EOF
						mes=Month(RecSet("data"))
						mese=MonthName(mes)
						if mes="1" And strAzione1 = "" Then%>
						
					<h2><%Response.Write(mese)%></h2>
					<%	strAzione1 = "ok"
						End if
						if mes="2" And strAzione2 = "" Then%>
					<h2><%Response.Write(mese)%></h2>
					<%	strAzione2 = "ok"
						End if
						if mes="3" And strAzione3 = "" Then%>
					<h2><%Response.Write(mese)%></h2>
					<%	strAzione3 = "ok"
						End if
						if mes="4" And strAzione4 = "" Then%>
					<h2><%Response.Write(mese)%></h2>
					<%	strAzione4 = "ok"
						End if
						if mes="5" And strAzione5 = "" Then%>
					<h2><%Response.Write(mese)%></h2>
					<%	strAzione5 = "ok"
						End if
						if mes="6" And strAzione6 = "" Then%>
					<h2><%Response.Write(mese)%></h2>
					<%	strAzione6 = "ok"
						End if
						if mes="7" And strAzione7 = "" Then%>
					<h2><%Response.Write(mese)%></h2>
					<%	strAzione7 = "ok"
						End if
						if mes="8" And strAzione8 = "" Then%>
					<h2><%Response.Write(mese)%></h2>
					<%	strAzione8 = "ok"
						End if
						if mes="9" And strAzione9 = "" Then%>
					<h2><%Response.Write(mese)%></h2>
					<%	strAzione9 = "ok"
						End if
						if mes="10" And strAzione10 = "" Then%>
					<h2><%Response.Write(mese)%></h2>
					<%	strAzione10 = "ok"
						End if
						if mes="11" And strAzione11 = "" Then%>
					<h2><%Response.Write(mese)%></h2>
					<%	strAzione11 = "ok"
						End if
						if mes="12" And strAzione12 = "" Then%>
					<h2><%Response.Write(mese)%></h2>
					<%	strAzione12 = "ok"
						End if%>

Avevo risolto in questo modo, ma forse il tuo metodo è migliore!