Underlig fejl!
Jeg har bikset et skoleskema sammen, hvori det er muligt at indsætte opgaver til de enkelte fag (timer) Det fungerede ok indtil jeg lavede om på det, så man kan se, om der er en opgave tilknyttet det enkelte timer. Opgave= rød bold, ingen opgave= grøn bold. Systemet med boldene fungerer ok, men samtidig med, at jeg satte denne del ind i scriptet, så holdt mine links op med at være dynamiske, så ugenummeret ikke findes. Kan nogen se hvorfor?? Skemaet ser sådan ud:<html>
<head>
<title>Skema</title>
</head>
<body>
<table border="1" width="100%" cellspacing="0" cellpadding="0" bordercolor="#0000FF" bordercolorlight="#0000FF" bordercolordark="#FFFFFF">
<tr>
<td width="125%" colspan="6" bgcolor="#669999">
<p align="center">
<font color="#FFFFFF" face="Verdana" size="5">
Uge</font>  <%
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>
</tr>
<tr>
<td width="14%" bgcolor="#669999"> </td>
<td width="18%" bgcolor="#669999">
<p align="center"><font color="#FFFFFF" face="Verdana" size="2"><b>Mandag</b></font></td>
<td width="18%" bgcolor="#669999">
<p align="center"><font color="#FFFFFF" face="Verdana" size="2"><b>Tirsdag</b></font></td>
<td width="18%" bgcolor="#669999">
<p align="center"><font color="#FFFFFF" face="Verdana" size="2"><b>Onsdag</b></font></td>
<td width="18%" bgcolor="#669999">
<p align="center"><font color="#FFFFFF" face="Verdana" size="2"><b>Torsdag</b></font></td>
<td width="18%" bgcolor="#669999">
<p align="center"><font color="#FFFFFF" face="Verdana" size="2"><b>Fredag</b></font></td>
</tr>
<tr>
<td width="14%" height="40" align="center" bgcolor="#669999"><font face="Verdana" size="2" color="#FFFFFF">1. time</font></td>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("/skoleskema2/skema.mdb")
Conn.Open DSN
fag = Request.Querystring("fag")
dag = Request.Querystring("dag")
uge = Request.Querystring("uge")
strSQL = "SELECT opgave FROM skoleskema WHERE dag='Mandag' AND fag='Matematik' AND uge = '" & uge & "'"
set rs = Conn.Execute(strSQL)
if rs.EOF or rs.BOF then
Response.Write"<td width=18% height=40 bgcolor=#33CCCC><font color=#FFFFFF><img src='greenball.gif'><A HREF='vis_opgave.asp?fag=matematik&dag=mandag&uge='"&uge&"'>matematik</A></font></td>"
Else
Response.Write"<td width=18% height=40 bgcolor=#33CCCC><font color=#FFFFFF><img src='redball.gif'><A HREF='vis_opgave.asp?fag=matematik&dag=mandag&uge='"&uge&"'>matematik</A></font></td>"
End if
if rs.EOF or rs.BOF then
Response.Write"<td width=18% height=40 bgcolor=#33CCCC><font color=#FFFFFF><img src='greenball.gif'><A HREF='vis_opgave.asp?fag=matematik&dag=tirsdag&uge='"&uge&"'>matematik</A></font></td>"
Else
Response.Write"<td width=18% height=40 bgcolor=#33CCCC><font color=#FFFFFF><img src='redball.gif'><A HREF='vis_opgave.asp?fag=matematik&dag=tirsdag&uge='"&uge&"'>matematik</A></font></td>"
End if
%>
<td width="18%" height="40" bgcolor="#FF9999"><font color="#FFFFFF"><!-- Luft --> <A HREF='vis_opgave.asp?fag=dansk&dag=onsdag&uge=<%=uge%>'>dansk</A></font></td>
<td width="18%" height="40" bgcolor="#00FFCC"><!-- Luft --> <A HREF='vis_opgave.asp?fag=engelsk&dag=torsdag&uge=<%=uge%>'>engelsk</A></td>
<td width="18%" height="40" bgcolor="#00CCFF"><!-- Luft --> <A HREF='vis_opgave.asp?fag=natur/teknik&dag=fredag&uge=<%=uge%>'>natur/teknik</A></td>
</tr>
<tr>
<td width="14%" height="40" align="center" bgcolor="#669999"><font face="Verdana" size="2" color="#FFFFFF">2. time</font></td>
<td width="18%" height="40" bgcolor="#33CCCC"><font color="#FFFFFF"><!-- Luft --> <A HREF='vis_opgave.asp?fag=matematik&dag=mandag&uge=<%=uge%>'>matematik</A></font></td>
<td width="18%" height="40" bgcolor="#33CCCC"><font color="#FFFFFF"><!-- Luft --> <A HREF='vis_opgave.asp?fag=matematik&dag=tirsdag&uge=<%=uge%>'>matematik</A></font></td>
<td width="18%" height="40" bgcolor="#FF9999"><font color="#FFFFFF"><!-- Luft --> <A HREF='vis_opgave.asp?fag=dansk&dag=onsdag&uge=<%=uge%>'>dansk</A></font></td>
<td width="18%" height="40" bgcolor="#FF99CC"><!-- Luft --> <A HREF='vis_opgave.asp?fag=kristendom&dag=torsdag&uge=<%=uge%>'>kristendom</A></td>
<td width="18%" height="40" bgcolor="#00CCFF"><!-- Luft --> <A HREF='vis_opgave.asp?fag=natur/teknik&dag=fredag&uge=<%=uge%>'>natur/teknik</A></td>
</tr>
<tr>
<td width="14%" height="40" align="center" bgcolor="#669999"><font face="Verdana" size="2" color="#FFFFFF">3. time</font></td>
<td width="18%" height="40" bgcolor="#FFFFCC"><font color="#FFFFFF"><!-- Luft --> <A HREF='vis_opgave.asp?fag=idræt&dag=mandag&uge=<%=uge%>'>idræt</A></font></td>
<td width="18%" height="40" bgcolor="#FF9999"><font color="#FFFFFF"><!-- Luft --> <A HREF='vis_opgave.asp?fag=dansk&dag=tirsdag&uge=<%=uge%>'>dansk</A></font></td>
<td width="18%" height="40" bgcolor="#00CC99"><font color="#FFFFFF"><!-- Luft --> <A HREF='vis_opgave.asp?fag=billedkunst&dag=onsdag&uge=<%=uge%>'>billedkunst</A></font></td>
<td width="18%" height="40" bgcolor="#FF9999"><!-- Luft --> <A HREF='vis_opgave.asp?fag=dansk&dag=torsdag&uge=<%=uge%>'>dansk</A></td>
<td width="18%" height="40" bgcolor="#00CC99"><!-- Luft --> <A HREF='vis_opgave.asp?fag=håndarbejde&dag=fredag&uge=<%=uge%>'>håndarbejde</A></td>
</tr>
<tr>
<td width="14%" height="40" align="center" bgcolor="#669999"><font face="Verdana" size="2" color="#FFFFFF">4. time</font></td>
<td width="18%" height="40" bgcolor="#FFFFCC"><font color="#FFFFFF"><!-- Luft --> <A HREF='vis_opgave.asp?fag=idræt&dag=mandag&uge=<%=uge%>'>idræt</A></font></td>
<td width="18%" height="40" bgcolor="#FF9999"><font color="#FFFFFF"><!-- Luft --> <A HREF='vis_opgave.asp?fag=dansk&dag=tirsdag&uge=<%=uge%>'>dansk</A></font></td>
<td width="18%" height="40" bgcolor="#00CC99"><font color="#FFFFFF"><!-- Luft --> <A HREF='vis_opgave.asp?fag=billedkunst&dag=onsdag&uge=<%=uge%>'>billedkunst</A></font></td>
<td width="18%" height="40" bgcolor="#FF9999"><!-- Luft --> <A HREF='vis_opgave.asp?fag=dansk&dag=torsdag&uge=<%=uge%>'>dansk</A></td>
<td width="18%" height="40" bgcolor="#00CC99"><!-- Luft --> <A HREF='vis_opgave.asp?fag=håndarbejde&dag=fredag&uge=<%=uge%>'>håndarbejde</A></td>
</tr>
<tr>
<td width="14%" height="40" align="center" bgcolor="#669999"><font face="Verdana" size="2" color="#FFFFFF">5. time</font></td>
<td width="18%" height="40" bgcolor="#FF9999"><!-- Luft --> <A HREF='vis_opgave.asp?fag=dansk&dag=mandag&uge=<%=uge%>'>dansk</A></td>
<td width="18%" height="40"><!-- Luft --> </td>
<td width="18%" height="40" bgcolor="#CCCC00"><!-- Luft --> <A HREF='vis_opgave.asp?fag=musik&dag=onsdag&uge=<%=uge%>'>musik</A></td>
<td width="18%" height="40" bgcolor="#CCCC00"><!-- Luft --> <A HREF='vis_opgave.asp?fag=musik&dag=torsdag&uge=<%=uge%>'>musik</A></td>
<td width="18%" height="40" bgcolor="#00FFCC"><!-- Luft --> <A HREF='vis_opgave.asp?fag=engelsk&dag=fredag&uge=<%=uge%>'>engelsk</A></td>
</tr>
<tr>
<td width="14%" height="40" align="center" bgcolor="#669999"><font face="Verdana" size="2" color="#FFFFFF">6. time</font></td>
<td width="18%" height="40" bgcolor="#FF9999"><!-- Luft --> </td>
<td width="18%" height="40"><!-- Luft --> </td>
<td width="18%" height="40" bgcolor="#CCFF99"><!-- Luft --> <A HREF='vis_opgave.asp?fag=historie&dag=onsdag&uge=<%=uge%>'>historie</A></td>
<td width="18%" height="40"><!-- Luft --> </td>
<td width="18%" height="40"><!-- Luft --> </td>
</tr>
<tr>
<td width="14%" height="40" align="center" bgcolor="#669999"><font face="Verdana" size="2" color="#FFFFFF">7. time</font></td>
<td width="18%" height="40"><!-- Luft --> </td>
<td width="18%" height="40"><!-- Luft --> </td>
<td width="18%" height="40"><!-- Luft --> </td>
<td width="18%" height="40"><!-- Luft --> </td>
<td width="18%" height="40"><!-- Luft --> </td>
</tr>
</table>
<br>
<%
If request.querystring("uge") <> "" Then
uge = request.querystring("uge")
Else
uge = DatePart("ww",date())
End If
fuge = uge - 1
If fuge < 1 then
fuge = 52
End If
Response.Write"<A HREF='skema.asp?uge=" & fuge & "'>Forrige uge< ></A>"
If request.querystring("uge") <> "" Then
uge = request.querystring("uge")
Else
uge = DatePart("ww",date())
End If
nuge = uge + 1
If nuge > 52 then
nuge = 1
End If
Response.Write"<A HREF='skema.asp?uge=" & nuge & "'>Næste uge</A>"%><br>
<p><a href="indsaet_opgave_form.asp">Indsæt opgave</a></p>
</body>
</html>
