Array og DB

du bliver nødt til at selecte det hele ud og så foretage formaterringen når du looper igennem dit recordset

while not objRec.EOF

  response.write "her kommer din måned: "& datePart("m",objRec("din_kolonne")) &"<br>"

objRec.MoveNext
Wend

sql = "select datofelt from tabel order by datofelt asc"
Set RS = Conn.Execute( sql )
Dim lastMonth : lastMonth = -1

while not RS.EOF
    currentMonth = DatePart( "m", RS( "datofelt" ) )
    if( currentMonth <> lastMonth ) then
        Response.write( currentMonth & "<br>" )
        lastMonth = currentMonth
    end if
    RS.MoveNext
wend

/nute

havde ikke lige set det kun skulle være én af hver. Så skal det se sådan her ud:

intLastMonth = 0

while not objRec.EOF
  intThisMonth = CInt(datePart("m",objRec("din_kolonne")))

  if CInt(intLastMonth) <> CInt(intThisMonth) then
    response.write "her kommer din måned: "& datePart("m",objRec("din_kolonne")) &"<br>"
  end if

objRec.MoveNext
Wend

dette er jo bare BS ... man kan jo se'fø'li gøre:

select DISTINCT( DATEPART( "m", datofelt ) ) from tabel order by datofelt asc

/nute

intLastMonth = 0

while not objRec.EOF
  intThisMonth = CInt(datePart("m",objRec("din_kolonne")))

  if CInt(intLastMonth) <> CInt(intThisMonth) then
    response.write "her kommer din måned: "& datePart("m",objRec("din_kolonne")) &"<br>"
 
  intLastMonth = intThisMonth
  end if
 
objRec.MoveNext
Wend

så skulle den være der :-)

nute -> er du sikker på at man kan gøre det med den SQL du skriver?

nute -> Det blev din :-D
Hvis jeg nu vil have årstallet med, kan du lave lidt ændringer der så ???
Smid venligst et svar....

select DISTINCT( DATEPART( "m", datofelt ) ), DATEPART( "yyyy", datofelt ) from tabel order by datofelt asc

/nute

og du kan sætte alias på:

select DISTINCT( DATEPART( "m", datofelt ) ) AS month, DATEPART( "yyyy", datofelt ) AS year from tabel order by datofelt asc

Tak Nute...
Jeg tog din først løsning...

Takker :-D

selv tak ...