Ciao. Ho questa funzione che gestisce un calendario; il problema è che sono costretto ad ogni cambio mese o anno a modificare manualmente il numero del mese per avere il mese corrente.
Esiste un modo per avere il cambio del mese in automatico? :
codice:
<% 
numeromese = 10
anno = 2004

set objconn=Server.createobject("ADODB.Connection") 

objconn.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" &Server.mappath("/mdb-database/counterdb.mdb") 
objconn.Open 

strSQL2="SELECT sum (visitorcount) as somma, month(visitdate) as mese from tbl_sessioni where month(visitdate) = " & numeromese & " and year(visitdate) = " & anno & " group by month(visitdate)" 

strsql=strsql&" from tbl_sessioni"

set rs2=objconn.execute(strSQL2) 

DIM MesiSpagnoli(12) 

MesiSpagnoli(1)="Enero" 
MesiSpagnoli(2)="Febrero" 
MesiSpagnoli(3)="Marzo" 
MesiSpagnoli(4)="Abril"
MesiSpagnoli(5)="Mayo" 
MesiSpagnoli(6)="Junio"
MesiSpagnoli(7)="Julio" 
MesiSpagnoli(8)="Agosto"
MesiSpagnoli(9)="Septiembre" 
MesiSpagnoli(10)="Octubre"
MesiSpagnoli(11)="Noviembre" 
MesiSpagnoli(12)="Diciembre" 

data = Date() 

mese = month(data) 

%><p style="margin-top: 0; margin-bottom: 0"><font face="Verdana">
<font size="1">Mes</font><font size="1">:<%=MesiSpagnoli(rs2("mese"))%></font></font></p>
<p style="margin-top: 0; margin-bottom: 0"><font face="Verdana">
<font size="1">Visitadores: </font>  <font size="1"> <%=rs2("somma")%></font></font><body></p>