spotgun--> Du havde ret. Når jeg sætter statiske datoer ind, så fejler den ikke. Til gengæld får jeg heller ikke udført det jeg ønsker, nemlig en blokering med rødt om fredagen i 5. lektion i perioden 01-01-03 til 01-06-03. Hvorfor jeg ikke får overført variablerne kan jeg heller ikke gennemskue. Hvis du gider kigge, så er hele scriptet her. Kan godt smide flere point, hvis det lykkes at få det til at virke
<%Session.LCID = &H0407%>
<%
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
%>
<html>
<head>
<title>Test - Demo</title>
<LINK REL="StyleSheet"
HREF="../style.css"
TYPE="text/css">
</head>
<body background="../images/background7.gif">
<p align="center">
<table border="1" width="100%" cellspacing="0" cellpadding="0" bordercolor="#0000FF" bordercolorlight="#0000FF" bordercolordark="#FFFFFF">
<tr>
<td width="128%" colspan="6" bgcolor="#669999">
<table border="0" width="100%">
<tr>
<td width="25%" valign="bottom"><b><font face="Verdana" color="#FFFFFF" size="4">Test</font></b></td>
<%
Function UgeTilDato(aar,uge,dag)
januar1 = DateSerial(aar, 1, 1)
ugedagjan1 = Weekday(januar1, vbMonday)
if ugedagjan1 <= 4 then
' 1. januar er i uge 1
mandaguge1 = DateAdd("d", -ugedagjan1+1, januar1)
else
' 1. januar er i sidste uge foregående år
mandaguge1 = DateAdd("d", 7-ugedagjan1+1, januar1)
end if
mandagugex = DateAdd("ww", uge-1, mandaguge1)
xdagugex = DateAdd("d", dag-1, mandagugex)
UgeTilDato = xdagugex
End Function
If request.querystring("uge") <> "" Then
uge = request.querystring("uge")
Else
uge = DatePart("ww",date())
End if
If request.querystring("aar") <> "" Then
aar = request.querystring("aar")
Else
aar = Year(Date)
End If
fuge = uge - 1
faar = aar
If fuge < 1 then
fuge = 52
faar = faar - 1
End If
Response.Write"<td width=20% align=left valign=bottom><font face=verdana size=3><A class='speciel' HREF='fysik2.asp?uge=" & fuge & "&aar=" & faar & "'><--Forrige uge </A></font></td>"
%>
<td width="20%" align="left"><font color=" #FFFFFF"><b><font face="Verdana" size="4">Uge</font><font face="Verdana" size="3"> </font></b>
</font>
<%
'Session.LCID = 1030
If Request.Querystring("uge") <> "" Then
uge = Request.Querystring("uge")
Else
uge = DatePart("ww",date())
End If
Response.Write "<font color=white face=verdana size=5>"
Response.Write uge
%>
</td>
<%
If request.querystring("uge") <> "" Then
uge = request.querystring("uge")
Else
uge = DatePart("ww",date())
End if
If request.querystring("aar") <> "" Then
aar = request.querystring("aar")
Else
aar = Year(Date)
End If
nuge = uge + 1
naar = aar
If nuge > 52 then
nuge = 1
naar = naar + 1
End If
Response.Write"<td width=35% align=left valign=bottom><font face=verdana size=3><A class='speciel' HREF='fysik2.asp?uge=" & nuge & "&aar=" & naar & "'>Næste uge--></A></font></td>"
%>
</tr>
</table>
</td>
</tr>
<tr>
<td width="8%" bgcolor="#669999"> </td>
<td width="18%" bgcolor="#669999">
<p align="center"><font color="#FFFFFF" face="Verdana" size="2"><b>Mandag</b><br>
<% Response.Write FormatDateTime(UgeTilDato(aar, uge, 1), vbShortDate) %></font></td>
<td width="18%" bgcolor="#669999">
<p align="center"><font color="#FFFFFF" face="Verdana" size="2"><b>Tirsdag</b><br>
<% Response.Write FormatDateTime(UgeTilDato(aar, uge, 2), vbShortDate) %></font></td>
<td width="19%" bgcolor="#669999">
<p align="center"><font color="#FFFFFF" face="Verdana" size="2"><b>Onsdag</b><br>
<% Response.Write FormatDateTime(UgeTilDato(aar, uge, 3), vbShortDate) %></font></td>
<td width="19%" bgcolor="#669999">
<p align="center"><font color="#FFFFFF" face="Verdana" size="2"><b>Torsdag</b><br>
<% Response.Write FormatDateTime(UgeTilDato(aar, uge, 4), vbShortDate) %></font></td>
<td width="19%" bgcolor="#669999">
<p align="center"><font color="#FFFFFF" face="Verdana" size="2"><b>Fredag</b><br>
<% Response.Write FormatDateTime(UgeTilDato(aar, uge, 5), vbShortDate) %></font></td>
</tr>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("/reservation3/data.mdb")
Conn.Open DSN
lektion = Request.Querystring("lektion")
dag = Request.Querystring("dag")
reservation = Request.Querystring("reservation")
fgyldig = Request.Querystring("fgyldig")
sgyldig = Request.Querystring("sgyldig")
dim SQLdag(7)
SQLdag(1) = "Mandag"
SQLdag(2) = "Tirsdag"
SQLdag(3) = "Onsdag"
SQLdag(4) = "Torsdag"
SQLdag(5) = "Fredag"
SQLdag(6) = "Lørdag"
SQLdag(7) = "Søndag"
dim linkdag(7)
linkdag(1) = "mandag"
linkdag(2) = "tirsdag"
linkdag(3) = "onsdag"
linkdag(4) = "torsdag"
linkdag(5) = "fredag"
linkdag(6) = "lørdag"
linkdag(7) = "søndag"
for lektion = 1 to 7
Response.Write "<tr>"
Response.Write "<td width=8% height=40 align=center bgcolor=#669999><font face=Verdana size=2 color=#FFFFFF>" & lektion & ". time</font></td>"
for dag = 1 to 5
strSQL = "SELECT dag,lektion FROM blokering WHERE reservation='fysik' AND dag='" & SQLdag(dag) & "' AND lektion='" & lektion & "' AND fgyldig>=#01-01-03# AND sgyldig<=#01-06-03#"
set rs = Conn.Execute(strSQL)
if not (rs.EOF or rs.BOF) then
Response.write"<td border=1 bordercolor=#0000FF bordercolordark=#FFFFFF bordercolorlight=#0000F width=18% height=40 bgcolor=red>Undervisning</td>"
Else
'generer data og HTML kode for (dag,lektion)
strSQL = "SELECT initialer,klasse FROM reserver WHERE reservation='fysik' AND dag='" & SQLdag(dag) & "' AND lektion='" & lektion & "' AND uge='" & uge & "'"
set rs = Conn.Execute(strSQL)
if rs.EOF or rs.BOF then
Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><font color=#FFFFFF><A HREF='reserver_form_test.asp?uge=" & uge & "&dag=" & linkdag(dag) & "&lektion=" & lektion & "&reservation=fysik'><img border=0 src='../images/greenball.gif' alt='Lokalet er ledigt'></font></td>"
Else
Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><b><font color=#FFFFFF face='verdana' size='2'><img src='../images/redball.gif' alt='Lokalet er optaget'><img src='../images/blank2.gif'><A HREF='vis_reservation.asp?reservation=fysik&lektion=" & lektion & "&dag=" & linkdag(dag) & "&uge=" & uge &"'>"&rs("initialer")&"</A></font></b></td>"
rs.MoveNext
End if
End if
next
Response.Write "</tr>"
next
Conn.Close
%>
</table>
<table>
<tr>
<%
Response.Write"<td align=center><font face=verdana size=2><A class='speciel2' HREF='reserver_form2.asp'>Reserver anden uge</A></font></td>"
%>
</tr>
</table>
<table>
<tr>
<%
Response.Write"<td align=center><font face=verdana size=2><A class='speciel2' HREF='../index.htm'>Tilbage til forsiden</A></font></td>"
%>
</tr>
</table>
</body>
</html>
Ny bruger
Nybegynder
Opret
Preview
