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>
Rispondi quotando
