Udskriv måneder

Har du prøvet MonthName(1) ?

hvor 1,2,3,4 angiver navet på den tilhørrende månede.

Hvis du er utilfreds med sproget skal du tilføje session.LCID=1030 for dansk og session.LCID=1033 for engelsk

minmd = ""

do while not rs.eof
if monthname(rs("etellerandet")) <> minmd then
response.write "<h2>"&monthname(rs("etellerandet"))&"</h2>"
minmd = monthname(rs("etellerandet"))

' måske noget mere her i loop, dine spilletider f.eks.
loop

maaned =  DatePart("m", Date())

        Select Case maaneder
               
                Case "1":maaneder = "Januar"
                Case "2":maaneder = "Februar"
                Case "3":maaneder = "Marts"
                Case "4":maaneder = "April"
                'Osv til den 12.
        End Select

Response.Write maaneder

Select Case maaneder

skal være

Select Case maaned

Hej
Hmmm.. har ikke fået nogle mails på at der var kommet svar til mig ... Så sorry for det.

Det som jeg tænker på er ...
Hvis mit objrecordset("Spilledato") er fra 01-01-06 til 31-01-06, så skal der AUTOMATISK indsættes en linie i ACCESS, hvor der står Januar.
Derefter skal alle den skrive .. Februar og så alle poster fra februar..

Moore >
Det er da meget smartere at skrive et datoformat, som du så kan formatere efter behov.

moore<
ja og det er nøjagtigt det mit eksempel gør.

men dit script, som jeg har set i et andet spgm, er ikke specielt godt bygget op.

jeg ville starte helt forfra hvis jeg var dig....

Har lavet koden en del om..
Og her er koden som laver selve udtrækket fra DB'en..

Men CPUFAN.. hvor vil du så sætte din kode ind henne????

<center>
<%
Sub Tabel(Byref objRecordSet)
    Dim i
    Response.Write"<TABLE BORDER=1  CELLSPACING=0 CELLPADDING=2 ALIGN=CENTER frame=below>"

    'udskriv header( feltnavn)
    Response.Write "<tr bgColor=#CDC9C9>"
   
        For i = 0 to objRecordset.Fields.Count - 1

            Response.Write "<td><font face=arial size=1><b>" & objRecordset.fields.item(i).name & "</b></font></td>"
           
        Next

    Response.Write "</tr>"

    'udskriv krop (feltpost)
   
   
   
    j=0
   
    Do While Not objRecordset.EOF
    select case weekday(objrecordset("Spilledato"))
    case 1
    dage ="Søndag"
    case 2
    dage ="Mandag"
    case 3
    dage ="Tirsdag"
    case 4
    dage ="Onsdag"
    case 5
    dage ="Torsdag"
    case 6
    dage ="Fredag"
    case 7
    dage ="Lørdag"
   
    end select
   
   
    j=j+1
   
        if(j mod 2)=0 then
       
        Response.Write "<tr bgColor=#F8F8FF>"
            else Response.Write "<tr bgColor=#E8E8E8>"
           
            if objrecordset("spilledato")<date() then
            response.write "<tr bgColor=#white>"
            end if
           
        End if
       
       
           

           
            response.write "<td>" & objRecordset("Id") & "</td>"
            response.write "<td>" & objRecordset("Person") & "</td>"
            response.write "<td>" & objRecordset("Spillested") & "</td>"
            response.write "<td>" & dage & "</td>"           
            response.write "<td>" & objRecordset("Spilletid") & "</td>"
            response.write "<td>" & objRecordset("Spilledato") & "</td>"
           
            response.write "<td>" & objRecordset("Beskrivelse") & "</td>"
           
           
            response.write "<td><a href=sletpost.asp?ID=" & objRecordset("ID") & ">Slet</a></td>"
           
           
        objRecordset.MoveNext
       
        Response.Write "</tr>"
       
    Loop
   
    Response.Write "</table>"
   
End Sub
%>
</center>