Her er hele default.asp for en sikkerheds skyld:
<% If Request.Querystring("Dag") = "" Then Response.Redirect "default.asp?Dag=04&Maaned=02&Aar=2003" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title></title>
<!--#include file="style.asp"-->
</head>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("kalender.mdb")
Conn.Open DSN
%>
<%
UgeNum = DateDiff("d", "01-01-"&Request.Querystring("Aar"), Request.Querystring("Dag")&"-"&Request.Querystring("Maaned")&"-"&Request.Querystring("Aar"))
UgeNum = Trim(UgeNum/7)
UgeNum = Round(UgeNum)
strDag = Request.Querystring("Dag")
strMaaned = Request.Querystring("Maaned")
strAar = Request.Querystring("Aar")
strDato = strDag&"-"&strMaaned&"-"&strAar
%>
Tidsplan for <%=FormatDateTime(strDato, vbLongDate)%> | Uge <%= UgeNum %>
<table cellspacing="0" cellpadding="0" width="500" height="*">
<tr>
<td colspan="2" style="border-bottom: 1 solid #000000"> </td>
</tr>
<%
Count = 9
Do While Not Count > 16
If Len(Count) = "1" Then Count = "0" & Count
Cell1 = "A" & Count & "00"
Cell2 = "B" & Count & "30"
WinCell1 = Right(Cell1, 4)
WinCell2 = Right(Cell2, 4)
lt = cint(count & "15")
SQL = "SELECT * FROM Kalender Where Dag = '"& strDag &"' And Maaned = '"& strMaaned &"' And Aar = '"& strAar &"' And cint(StartTid) <= " & lt & " and cint(SlutTid) >= " & lt
set rs1 = conn.execute (sql)
if not rs1.eof then
strEmne1 = "Optaget"
else
strEmne1 = ""
end if
lt = cint(count & "45")
SQL = "SELECT * FROM Kalender Where Dag = '"& strDag &"' And Maaned = '"& strMaaned &"' And Aar = '"& strAar &"' And cint(StartTid) <= " & lt & " and cint(SlutTid) >= " & lt
set rs1 = conn.execute (sql)
if not rs1.eof then
strEmne2 = "Optaget"
else
strEmne2 = ""
end if
%>
<tr>
<td style="border-left: 2 solid #000000; border: 1 solid #000000" rowspan="2" width="50" bgcolor="#a6a6a6">
<table cellspacing="0" cellpadding="0" width="100%" height="*">
<tr>
<td rowspan="2" width="30"><center><b><font size="5"><%= Count %></font></b></center></td>
<td width="*" style="border-bottom: 1 solid #000000"><center><b>00</b></center></td>
</tr>
<tr>
<td width="*"><center><b>30</b></center></td>
</tr>
</table>
</td>
<% If strEmne1 <> "Optaget" Then %>
<td width="*" id="<%= Cell1 %>" style="border-left: 1 solid #000000; border-top: 1 solid #000000" onMouseOver="document.all.<%= Cell1 %>.bgColor='#cccccc'" onMouseOut="document.all.<%= Cell1 %>.bgColor=''"> <%= strEmne1 %></td>
<% Else %>
<td width="*" style="border: 1 solid #000000; border-right: 0 solid #000000" bgcolor="#cccccc"> Optaget</td>
<% End If %>
</tr>
<tr>
<% If strEmne2 <> "Optaget" Then %>
<td width="*" id="<%= Cell2 %>" style="border: 1 solid #000000; border-right: 0 solid #000000" onMouseOver="document.all.<%= Cell2 %>.bgColor='#cccccc'" onMouseOut="document.all.<%= Cell2 %>.bgColor=''"> <%= strEmne2 %></td>
<% Else %>
<td width="*" style="border: 1 solid #000000; border-right: 0 solid #000000" bgcolor="#cccccc"> Optaget</td>
<% End If %>
</tr>
<%
Count = Count + 1
Loop
%>
<tr>
<td colspan="2" style="border-top: 1 solid #000000"> </td>
</tr>
</table>
<%
Conn.Close
Set Conn = Nothing
%>
</body>
</html>
