Visualizzazione dei risultati da 1 a 2 su 2

Discussione: Ciclo mesi

  1. #1
    Utente di HTML.it
    Registrato dal
    May 2004
    Messaggi
    331

    Ciclo mesi

    Salve ragazzi,
    dovrei stampare i nomi dei mesi a partire da gennaio 2004 fino ad oggi che in auto cambino ogni mese

    dovrebbe essere così

    2005
    ...
    ...

    2004
    Ottobre
    Settebre
    ...
    ...
    ..
    Gennaio

  2. #2
    Utente di HTML.it L'avatar di Luis33
    Registrato dal
    May 2003
    Messaggi
    975
    Personalizzalo per la tua lingua.
    codice:
    numeromese = month(date())
    anno = year(date())
    
    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) 
    
    <%=MesiSpagnoli(rs2("mese"))%>
    <%=rs2("somma")%>
    ... Sono graditi codes, esempi pratici, suggerimenti, consigli e critiche...
    "Ai posteri l'ardua sentenza..."
    Tante grazie
    Saluti
    Luis 33

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.