Jeg har lavet en kalender i stil med det du skriver og her er hvordan jeg fik lavet siden. Der er måske lige en lille forskel jeg har gemt start og slut til som hh:nn:ss i typen Dato/Klokkeslæt. Tiden går fra 00:00 -> 23:30 men det kan jo rettes ind:
<!--#include file="db.asp"-->
<html>
<head>
<META NAME="ROBOTS" CONTENT="NOARCHIVE">
<META NAME="GOOGLEBOT" CONTENT="NOARCHIVE">
</head>
<body>
<table width="100%" height="100%">
<tr><td>
<%
if Session("showDate") = "" then
Session("showDate") = Year(Date) & "-" & Month(Date) & "-" & Day(Date)
end if
%>
<center><table><tr><td><h3>Kalender for <%=Session("showDate")%></h3></td></tr></table></center>
<%
Conn.Open sConnection
strSQL = "SELECT id, Overskrift, sted, datoFra, datoTil, tidFra, tidTil FROM events "
strSQL = strSQL & "WHERE datoFra = #" & Session("showDate") & "#"
strSQL = strSQL & " ORDER BY tidTil ASC"
Set rs = Conn.Execute (strSQL)
Dim eventArr(48,4) '48= 24timer*2halvetimer som er max events på en dag
'0 = ID
'1 = Title
'2 = StartTid
'3 = SlutTid
'4 = AntalHalveTimer
Dim eventNo
eventNo=0
do while not rs.EOF
eventArr(eventNo, 0) = rs("id")
eventArr(eventNo, 1) = rs("Overskrift")
eventArr(eventNo, 2) = rs("tidFra")
eventArr(eventNo, 3) = rs("tidTil")
eventArr(eventNo, 4) = DateDiff("n",CDate(rs("tidFra")),CDate(rs("tidTil")))/30
eventNo=eventNo+1
rs.MoveNext
loop
%>
<table border="1">
<%
colorEvent = "#CCFFFF"
foundEvent = false
Tid = CDate("00:00:00")
eventNo=0
for timeTal = 0 to 47 %>
<tr>
<td><b><%=Left(Tid,5)%></b></td>
<% if foundEvent=false then %>
<td width="100%" valign="top"
<% if Tid = CDate(eventArr(eventNo, 2)) then
Response.Write " bgColor=""" & colorEvent & """ rowspan=""" & eventArr(eventNo, 4) & """"
foundEvent = true
end if %>
>
<% if foundEvent = true then
response.write eventArr(eventNo, 1)
else
response.write " "
end if %>
</td>
<% end if
if Tid>=CDate(DateAdd("n",-30,CDate(eventArr(eventNo, 3)))) then
foundEvent = false
eventNo=eventNo+1
end if %>
</tr>
<% Tid = DateAdd("n",30,Tid) %>
<% next %>
</table>
</body>
</html>
