| Kalender för Malmhaug |
| Lägg till möte |
Ta bort möte |
<%
Dim strBeskrivning
Dim strKalender
Dim rsKalender
strKalender = "SELECT `Datum`, `Ämne`, `Plats`, `Beskrivning` FROM `tblKalender` ORDER BY Datum DESC"
' hämta från databas och skriv ut
Set rsKalender = malmhaugRS(strKalender)
If Not rsKalender.EOF Or Not rsKalender.BOF Then
Do While Not rsKalender.EOF
Response.Write "
|
"
Response.Write "| Datum: | " & SvensktDatum(rsKalender("Datum")) & " |
"
Response.Write "| Ämne: | " & rsKalender("Ämne") & " |
"
Response.Write "| Plats: | " & rsKalender("Plats") & " |
"
strBeskrivning = rsKalender("Beskrivning")
strBeskrivning = ConvertText(strBeskrivning)
Response.Write "| Beskrivning: | " & strBeskrivning & " |
"
rsKalender.MoveNext
Loop
Else
Response.Write "| Inga möten finns inlagda i kalendern. |
"
End If
CloseDB(rsKalender)
%>