Indsæt og vis i aktivitetskalender

Du kan starte med at lave dig en tabel med en kolonne til dato og en til beskrivelse af aktiviteten.

Når du fx. skal vise januar måned, vil du typisk lave et udtræk, der henter alle aktiviteter fra ovenstående tabel, hvor månedens nummer er lig 1, sorteret således at de ældste kommer først. Dette recordsæt kan du så løbe i gennem med en løkke og sammenligne dagene for aktiviteterne med dagene i din kalender. Et eksempel (med Access), hvor vi henter alle aktiviteter for måned 1, år 2004 og fremhæver de dage i måneden, hvor der er en aktivitet:

Maaned = 1
Aar = 2004

Set rs = obj.Execute("Select Format(Dato, 'dd') As Dag, Aktivitet From Tabel Where Format(Dato, 'mm') = '" & Maaned & "' And Format(Dato, 'yyyy') = '" & Aar & "' Order By Dato")

For i = 1 To 31
    Aktivitet = ""
    If Not rs.EOF Then
      If CInt(rs("Dag")) = i Then
        Aktivitet = rs("Aktivitet")
        rs.MoveNext
      End If
    End If
    If Aktivitet = "" Then
      Response.Write i & ". " & MonthName(Maaned) & " " & Aar & "<br>"
    Else
      Response.Write "<b>" & i & ". " & MonthName(Maaned) & " " & Aar & "</b><br>"
    End If
Next

Prøv at oprette en sådan tabel og afprøv scriptet, så kan du sikkert se idéen i det.

-Okay, jeg er MEGET newbie... Hvad skal tabellen bruges til?? Hvor skal koden sættes ind?

W13(?)

Tabellen skal bruges til at lagre oplysningerne om aktiviteterne.

Det sidste spørgsmål kan jeg ikke sådan uden videre svare på. Det kommer jo helt an på, hvordan din eksisterende kode ser ud. Desuden er det ikke nok bare at "sætte det ind". Jeg lavede et eksempel til dig, som du kan bruge som et udgangspunkt til at modificere din kode. Jeg har altså ikke i sinde at sidde og lave hele koden !~)

Ok, så den kode, du har givet mig, bygger altså ikke noget af kalenderen??

W13

Hvorfor prøver du den ikke bare?

-Tja, jeg kan da prøve... (Men... Hmm...!??)

Virker ikke... Men har også fundet en anden løsning - ellers tak...

Ok