Kalender problemer
Hi..Jeg er ved at lave et kalender system, men kan af en mærkelig grund ikke få den til at udskrive dagens aktiviteter. Det virker meget mærkeligt da den godt kun udskrive fra andre dage...
Uddrag af kode:
strSQL = "SELECT titel, start_dato, start_time, slut_dato, slut_time FROM kalender WHERE start_dato=#" & DateSerial(strYear, strMonth, intDayCount) & "# ORDER BY start_time"
Set tblKalender = objConn.Execute(strSQL)
If NOT tblKalender.EOF then
While NOT tblKalender.EOF
strAppDay = strAppDay & "Fra: " & FormatDateTime(tblKalender("start_time"),vbShortTime) & " til: " & FormatDateTime(tblKalender("slut_time"),vbShortTime) & " - " & tblKalender("Titel") & "<br>"
tblKalender.Movenext()
Wend
End if
tblKalender.Close
Set tblKalender = Nothing
If Date() = DateSerial(strYear,strMonth,intDayCount) then
strBgColor = "#F7F7F7"
If strAppDay = "" then
strAppDay = "Der sker ikke noget idag"
End if
End if
Dokumentet: http://visitme.dk/lyngby-drengene/holdet/kalender.asp !
Hvad kan være galt?
