Kalender man kan skrive aftaler i

Der er masser af eksempler. Både her på exp og på nettet. Prøv at google.

Grundliggende:

Dim dtmDato, iMonth, iYear

'Hvilken måned skal vises?:
iYear = 2006
iMonth = 2

'Sætter datoen til den første i den måned der skal vises
dtmDato = DateSerial(iYear, iMonth, 1)

'Åbn et recordset med aftaler
Com.Commandtext = "SELECT dtmDato, strAftale FROM Aftale WHERE DATEPART(yyyy, dtmDato) = " & iYear  & " AND DATEPART(mm, dtmDato) = " & iMonth
Rec.Open Com, , 0, 1

do while Datepart("m", dtmDato) = iMonth
  Response.Write("<hr><h3>" & dtmDato & "</h3>")
  if not Rec.BOF then
    do while not Rec.EOF
      if DateDiff("d", dtmDato, Rec("dtmDato")) = 0 then Response.Write(Rec("strAftale") & "<br>")
      if DateDiff("d", dtmDato, Rec("dtmDato")) > 0 then exit do
      Rec.MoveNext
    loop
  end if
  dtmDato = DateAdd("d", 1, dtmDato)
loop

Rec.Close

Du skal jo selv finde ud af at åbne databasen, og select'e poster der er i indeværende måned. Mit eks. passer til MSSQL

Disse to linier skal vist byttes om:

if DateDiff("d", dtmDato, Rec("dtmDato")) > 0 then exit do
Rec.MoveNext

old