Finde måned og år fra postede dato'er

sql = "select * from tabel order by dato desc"

set rs = conn.execute(sql)

nmd = ""
do while not rs.eof
if month(rs("dato")) <> nmd then
response.write "<b>"& month(rs("dato")) &" "&year(rs("dato"))&"</b><br>"
nmd = month(rs("dato"))
end if
response.write rs("nyhed") &"<br>"
loop

Det afhænger jo lidt af hvordan du får fat i dine data, men under antagelse af at du benytter Access og derfor kan finde dem via SQL, så kunne jeg da forestille mig noget i stil med flg. SQL:

SELECT DISTINCT year(dato) AS theYear, month(dato) AS theMonth 
FROM tabellen
ORDER BY year(dato), month(dato) DESC

Så kan du gennemløbe resultatet og omsætte de påg. informationer til fra resultatet til elementer i en dropdown eller hvor den nu skal vises...

cpufan >> Jeg kunne ikke få dit script til at virke..

softspot >>

Jeg prøvede at gøre således:

<%
    Set finddato = Server.CreateObject("ADODB.Recordset")
    finddato.Open "SELECT DISTINCT dato AS datoen FROM nyhed_nyhed ORDER BY dato DESC", database
   
        While NOT finddato.EOF
            maaned = Month(finddato.Fields("datoen"))
           
            Select Case maaned
                Case "1":maanednavn = "Januar"
                Case "2":maanednavn = "Februar"
                Case "3":maanednavn = "Marts"
                Case "4":maanednavn = "April"
                Case "5":maanednavn = "Maj"
                Case "6":maanednavn = "Juni"
                Case "7":maanednavn = "Juli"
                Case "8":maanednavn = "August"
                Case "9":maanednavn = "September"
                Case "10":maanednavn = "Oktober"
                Case "11":maanednavn = "November"
                Case "12":maanednavn = "December"
            End Select
                Response.Write maanednavn & " " & Year(finddato.Fields("datoen")) & "<br />" & VbCrlf
        finddato.MoveNext
        Wend
   
    finddato.Close
    Set finddato = Nothing
%>

Men den skriver stadig måned + år, flere gange, hvis de findes flere gange. Det burde DISTINCT da sørge for at den ikke gør, ikke? :\

<%
session.lcid = 1030   
Set finddato = Server.CreateObject("ADODB.Recordset")
    finddato.Open "SELECT * FROM nyhed_nyhed ORDER BY dato DESC", database
nmd = ""
While NOT finddato.EOF

if monthname(finddato("dato")) <> nmd then
response.write "<b>"& monthname(finddato("dato")) &" "&year(finddato("dato"))&"</b><br>"
nmd = monthname(finddato("dato"))
end if
response.write rs("nyhed") &"<br>"

        finddato.MoveNext
        Wend
   
    finddato.Close
    Set finddato = Nothing

Grunden til at jeg splittede datoen op i SQL-sætningen var at distinct jo finder alle rækker der er forskellige i resultatet. Din version finder alle de enkelte dage, men du vil kun finde måneder og år. Prøv min version af SQL-sætningen i stedet...

softspot >>

Jeg har lige prøvet, men den giver en masse underlige dato'er. Januar 1890 December 2006 osv. :S

cpufan >>
Jeg ved ikke om jeg gør noget forkert, eller min server bare er fucked. Men jeg kan altså hverken bruge 'monthname' på min lokale IIS server eller på min udbyders.

Om ikke andet prøver jeg lige at lege lidt mere med det. Og evt. gør brug af nogle cases istedet. :)

Jamen, koden skal jo tilpasses det resultet du får:

<%
    Set finddato = Server.CreateObject("ADODB.Recordset")
    sql = "SELECT DISTINCT year(dato) AS theYear, month(dato) AS theMonth " & _ 
          "FROM tabellen " & _
          "ORDER BY year(dato), month(dato) DESC"
    finddato.Open sql, database
   
        While NOT finddato.EOF
            maaned = finddato("theMonth")
           
            Select Case maaned
                Case "1":maanednavn = "Januar"
                Case "2":maanednavn = "Februar"
                Case "3":maanednavn = "Marts"
                Case "4":maanednavn = "April"
                Case "5":maanednavn = "Maj"
                Case "6":maanednavn = "Juni"
                Case "7":maanednavn = "Juli"
                Case "8":maanednavn = "August"
                Case "9":maanednavn = "September"
                Case "10":maanednavn = "Oktober"
                Case "11":maanednavn = "November"
                Case "12":maanednavn = "December"
            End Select
                Response.Write maanednavn & " " & finddato("theYear") & "<br />" & VbCrlf
        finddato.MoveNext
        Wend
   
    finddato.Close
    Set finddato = Nothing
%>

Jeg vil gerne sige tak til jer begge. :)

Jeg endte med at bruge cpufans eksempel, lige 1-2 mins før du smed det sidste eksemple softspot, der iøvrigt virkede. :)

Men jeg valgte som sagt at bruger cpufan's eksempel, og derfor giver jeg pointene til cpufan.

faldt lige over monthname,
den skal benyttes således:

monthname(month(finddato("datoen")))

beklager fejlen......

monthname returner navnet ud fra tallene 1-12
month returner tallet fra 1-12

session.lcid = 1030 sørger for dansk kalender