Sortering af dato ud fra måned

nuv-md = ""
aftalenr = 0
do while not kalender.eof
if month(kalender("start")) <> nuv-md then
response.write "<tr><td colspan = ""3"">" & month(kalender("start")) &"</tr>"
nuv-md = month(kalender("start"))
aftalenr = 0
end if
aftalenr = aftalenr + 1
%>

<td width="75" class="menutext"><a href="calender_change.asp?id=<%=kalender("id")%>"><%=kalender("start")%></a> &nbsp;</td>
<td width="75" class="menutext"><%=kalender("slut") &"aftale nr:" & aftalenr%>&nbsp;</td>
<td width="250" class="menutext"><%=kalender("beskrivelse")%>&nbsp;</td>

<%  kalender.MoveNext
loop

DatePart("m", Date())

Du kan altid bare hente måneden og sortere med den. ;)

argh lidt fejl i koden, ( den er utestet) rettelse her:


<%session.lcid = 1030 ' skal stå øverst i koden (på siden, for at lave dansk md)
nuv-md = ""
aftalenr = 0
do while not kalender.eof
if month(kalender("start")) <> nuv-md then
response.write "<tr><td colspan = ""3"">" & month(kalender("start")) &"</td></tr>"
nuv-md = month(kalender("start"))
aftalenr = 0
end if
aftalenr = aftalenr + 1
%>

<td width="75" class="menutext"><a href="calender_change.asp?id=<%=kalender("id")%>"><%=kalender("start")%></a> &nbsp;</td>
<td width="75" class="menutext"><%=kalender("slut") &" aftale nr:" & aftalenr%>&nbsp;</td>
<td width="250" class="menutext"><%=kalender("beskrivelse")%>&nbsp;</td>

<%  kalender.MoveNext
loop

skøøønt "#¤#%%¤#

det hele skal afsluttes med:

%>

Der skal kun vises datoer fra dags dato og frem - Er det muligt?

strSQL = "Select * from kalender where start >= #" &date()&" order by start"

strSQL = "Select * from kalender where start >= #" &date()&"# order by start"



/det går fan'me godt............... not

Hej - den brokker sig :)
Microsoft VBScript runtime error '800a000d'
Type mismatch: 'nuv'

ændr nuv-md til nuvmd

der må nok ikke være - i variabler

Nu er fejlen væk, men der selekteres ikke data. Hvor skal jeg sætte select'en ind?

<%session.lcid = 1030 ' skal stå øverst i koden (på siden, for at lave dansk md)
nuvmd = ""
aftalenr = 0
do while not kalender.eof
if month(kalender("start")) <> nuvmd then
response.write "<tr><td colspan = ""3"">" & month(kalender("start")) &"</td></tr>"
nuvmd = month(kalender("start"))
aftalenr = 0
end if
aftalenr = aftalenr + 1
%>

       
<tr>
                  <td width="75" class="menutext"><a href="calender_change.asp?id=<%=kalender("id")%>"><%=kalender("start")%></a> &nbsp;</td>
<td width="75" class="menutext"><%=kalender("slut") &" aftale nr:" & aftalenr%>&nbsp;</td>
<td width="250" class="menutext"><%=kalender("beskrivelse")%>&nbsp;</td>

                </tr>
<%  kalender.MoveNext
loop
%>

<%
session.lcid = 1030
strSQL = "Select * from kalender order by start"
set kalender = Conn.Execute(strSQL)
do while not kalender.eof
if month(kalender("start")) <> nuvmd then
response.write "<tr><td colspan = ""3"">" & month(kalender("start")) &"</td></tr>"
nuvmd = month(kalender("start"))
aftalenr = 0
end if
aftalenr = aftalenr + 1
%>

       
<tr>
                  <td width="75" class="menutext"><a href="calender_change.asp?id=<%=kalender("id")%>"><%=kalender("start")%></a> &nbsp;</td>
<td width="75" class="menutext"><%=kalender("slut") &" aftale nr:" & aftalenr%>&nbsp;</td>
<td width="250" class="menutext"><%=kalender("beskrivelse")%>&nbsp;</td>

                </tr>
<%  kalender.MoveNext
loop
set kalender = nothing
'close conn
%>

Hey - nu virker det næsten. Nu skrives der 2 for februar og 4 for marts, så jeg ville høre hvordan jeg ændrer det til tekst?

Svinget Du kan bruge en select Case. ;)

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

istedet for month skal du bruge monthname

denne

response.write "<tr><td colspan = ""3"">" & month(kalender("start")) &"</td></tr>"

skal ændres til

response.write "<tr><td colspan = ""3"">" & monthname(month(kalender("start"))) &"</td></tr>"

Jeg kan ikke rigtig styre fonten på måneden, måske fordi jeg benytter stylesheet. hvordan kan jeg styre den?

saudoo: tak for dit indspark, men cpufan havde den bedste løsning.

det er så denne linie der skal ha' noget style på:

response.write "<tr><td colspan = ""3"">" & monthname(month(kalender("start"))) &"</td></tr>"


f.eks.

response.write "<tr><td colspan = ""3"" class=""menutext"">" & monthname(month(kalender("start"))) &"</td></tr>"

Det kan den ikke lide:
Microsoft VBScript compilation error '800a0401'

Expected end of statement

ups sorry

response.write "<tr><td colspan = ""3"" class=""menutext"">" & monthname(month(kalender("start"))) &"</td></tr>"

sårn

argh. duer ikke denne

response.write "<tr><td colspan = ""3"" class=""menutext"">" & monthname(month(kalender("start"))) &"</td></tr>"

hvad helvede den sletter mine "

der skal være to 2 " efter ""3

tdcolspan = ""3""

hey hvor det bare virker - du er en haj. Mange tak for hjælpen :

np - ;)

Hov - lige et ekstra spørgsmål hvis du har tid. Denne select viser kun den sidste aftale der ligger i databasen:
strSQL = "Select * from kalender where opstart >= #" &date()&"# order by opstart"

nej den tager alle der har en "størrere" dato end i dag...

så er det din løkke der skal kigges i...