Originariamente inviato da optime
fai un ciclo da 1 a 12, e la tu select sarà
... where month(data_evento) = " & mese & "....
that easy!
OK, ho fatto così E FUNZIONA, GRAZIE !!!!
codice:
<%
for MESE = 1 to 12
strMese = (Array("","Gennaio","Febbraio","Marzo","Aprile","Maggio","Giugno", _ "Luglio","Agosto","Settembre","Ottobre","Novembre","Dicembre"))(MESE)
Response.Write("<dt>" & strMese & "</dt>")
sql = "SELECT * FROM TBL_EVENTI "
sql = sql & " WHERE 1 = 1 "
sql = sql & " AND "
sql = sql & " VALIDO = 0 "
sql = sql & " AND "
sql = sql & " MONTH(DATA) = " & MESE & " "
sql = sql & " AND "
sql = sql & " YEAR(DATA) = " & YEAR(DATE()) & " "
sql = sql & " ORDER BY DATA DESC "
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open sql, objconn
If Not Rs.EOF Then
Do Until Rs.EOF
Response.Write("<dd>" & Rs("DESCRIZIONE") & "</dd>")
Rs.MoveNext()
Loop
else
Response.Write("<dd>Nessun EVENTO disponibile.</dd>")
End If
Rs.Close()
set Rs = nothing
next
%>