Notifikationer

Markér alle som læst Log ud

riishoj Nybegynder

04. februar 2003 - 19:25 Der er 84 kommentarer og
1 løsning

Finde datoer ud fra ugenummer (igen)

Jeg ved godt at lignende spørgsmål er stillet flere gange her, men jeg kan ikke få svarene til at passe på lige netop mit behov!
Til sagen. Har lavet et reservationssystem i form af uge(skole)skemaer. Skemaerne hentes ind med ugenummer på, og man kan klikke frem og tilbage i ugenumrene.
Jeg kunne godt tænke mig at få indsat datoen på hver ugedag, altså dato på mandag, dato på tirsdag osv.

Et af reservationsskemaerne ser sådan ud:

<html>
<%
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
%>
<head>
<title>fysiklokalet - Demo</title>
<LINK REL="StyleSheet"
HREF="../style.css"
TYPE="text/css">

</head>

<body background="../images/background7.gif">
 
<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">fysik</td>
<%
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"<td width=20% align=left valign=bottom><A class='speciel' HREF='fysik.asp?uge=" & fuge & "'><--Forrige uge </A></td>"
%>

<td width="20%" align="left">Uge&nbsp


<%
Session.LCID = 1030

If Request.Querystring("uge") <> "" Then
uge = Request.Querystring("uge")
Else
uge = DatePart("ww",date())
End If

Response.Write ""
Response.Write uge
%>
</td>
<%

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"<td width=35% align=left valign=bottom><A class='speciel' HREF='fysik.asp?uge=" & nuge & "'>Næste uge--></A></td>"
%>

</tr>
</table>

</td>
</tr>
<tr>
<td width="8%" bgcolor="#669999"> </td>
<td width="18%" bgcolor="#669999">
Mandag</td>
<td width="18%" bgcolor="#669999">
Tirsdag</td>
<td width="19%" bgcolor="#669999">
Onsdag</td>
<td width="19%" bgcolor="#669999">
Torsdag</td>
<td width="19%" bgcolor="#669999">
Fredag</td>
</tr>
<tr>
<td width="8%" height="40" align="center" bgcolor="#669999">1. time</td>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("/reservation/data.mdb")
Conn.Open DSN

lektion = Request.Querystring("lektion")
dag = Request.Querystring("dag")
reservation = Request.Querystring("reservation")

'Mandag 1. lektion ****************************************************

strSQL = "SELECT initialer,klasse FROM reserver WHERE reservation='fysik' AND dag='Mandag' AND lektion='1' AND uge='" & uge & "'"
set rs = Conn.Execute(strSQL)
if rs.EOF or rs.BOF then
Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><A HREF='reserver_form_fysik.asp?uge=" & uge & "&dag=mandag&lektion=1&reservation=fysik'><img border=0 src='../images/greenball.gif' alt='Lokalet er ledigt'></td>"

Else

Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><img src='http://riishojwebsoft.dk/reservation2/images/redball.gif' alt='Lokalet er optaget'><img src='http://riishojwebsoft.dk/reservation2/images/blank2.gif'><A HREF='vis_reservation.asp?reservation=fysik&lektion=1&dag=mandag&uge=" & uge &"'>"&rs("initialer")&"</A></td>"

rs.MoveNext

End if

'Tirsdag 1. lektion *****************************************************

strSQL = "SELECT initialer,klasse FROM reserver WHERE reservation='fysik' AND dag='Tirsdag' AND lektion='1' AND uge='" & uge & "'"
set rs = Conn.Execute(strSQL)
if rs.EOF or rs.BOF then
Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><A HREF='reserver_form_fysik.asp?uge=" & uge & "&dag=tirsdag&lektion=1&reservation=fysik'><img border=0 src='http://riishojwebsoft.dk/reservation2/images/greenball.gif' alt='Lokalet er ledigt'></td>"

Else

Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><img src='http://riishojwebsoft.dk/reservation2/images/redball.gif' alt='Lokalet er optaget'><img src='http://riishojwebsoft.dk/reservation2/images/blank2.gif'><A HREF='vis_reservation.asp?reservation=fysik&lektion=1&dag=tirsdag&uge=" & uge &"'>"&rs("initialer")&"</A></td>"

rs.MoveNext

End if

'Onsdag 1. lektion *****************************************************

strSQL = "SELECT initialer,klasse FROM reserver WHERE reservation='fysik' AND dag='Onsdag' AND lektion='1' AND uge='" & uge & "'"
set rs = Conn.Execute(strSQL)
if rs.EOF or rs.BOF then
Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><A HREF='reserver_form_fysik.asp?uge=" & uge & "&dag=onsdag&lektion=1&reservation=fysik'><img border=0 src='http://riishojwebsoft.dk/reservation2/images/greenball.gif' alt='Lokalet er ledigt'></td>"

Else

Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><img src='http://riishojwebsoft.dk/reservation2/images/redball.gif' alt='Lokalet er optaget'><img src='http://riishojwebsoft.dk/reservation2/images/blank2.gif'><A HREF='vis_reservation.asp?reservation=fysik&lektion=1&dag=onsdag&uge=" & uge &"'>"&rs("initialer")&"</A></td>"

rs.MoveNext

End if

'Torsdag 1. lektion ********************************************************

strSQL = "SELECT initialer,klasse FROM reserver WHERE reservation='fysik' AND dag='Torsdag' AND lektion='1' AND uge='" & uge & "'"
set rs = Conn.Execute(strSQL)
if rs.EOF or rs.BOF then
Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><A HREF='reserver_form_fysik.asp?uge=" & uge & "&dag=torsdag&lektion=1&reservation=fysik'><img border=0 src='http://riishojwebsoft.dk/reservation2/images/greenball.gif' alt='Lokalet er ledigt'></td>"

Else

Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><img src='http://riishojwebsoft.dk/reservation2/images/redball.gif' alt='Lokalet er optaget'><img src='http://riishojwebsoft.dk/reservation2/images/blank2.gif'><A HREF='vis_reservation.asp?reservation=fysik&lektion=1&dag=torsdag&uge=" & uge &"'>"&rs("initialer")&"</A></td>"

rs.MoveNext

End if

'Fredag 1. lektion *********************************************************

strSQL = "SELECT initialer,klasse FROM reserver WHERE reservation='fysik' AND dag='Fredag' AND lektion='1' AND uge='" & uge & "'"
set rs = Conn.Execute(strSQL)
if rs.EOF or rs.BOF then
Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><A HREF='reserver_form_fysik.asp?uge=" & uge & "&dag=fredag&lektion=1&reservation=fysik'><img border=0 src='http://riishojwebsoft.dk/reservation2/images/greenball.gif' alt='Lokalet er ledigt'></td>"

Else

Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><img src='http://riishojwebsoft.dk/reservation2/images/redball.gif' alt='Lokalet er optaget'><img src='http://riishojwebsoft.dk/reservation2/images/blank2.gif'><A HREF='vis_reservation.asp?reservation=fysik&lektion=1&dag=fredag&uge=" & uge &"'>"&rs("initialer")&"</A></td>"

rs.MoveNext

End if

Conn.Close
%>

<tr>
<td width="8%" height="40" align="center" bgcolor="#669999">2. time</td>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("/reservation/data.mdb")
Conn.Open DSN

lektion = Request.Querystring("lektion")
dag = Request.Querystring("dag")

'Mandag 2. lektion ******************************************************

strSQL = "SELECT initialer,klasse FROM reserver WHERE reservation='fysik' AND dag='Mandag' AND lektion='2' AND uge='" & uge & "'"
set rs = Conn.Execute(strSQL)
if rs.EOF or rs.BOF then
Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><A HREF='reserver_form_fysik.asp?uge=" & uge & "&dag=mandag&lektion=2&reservation=fysik'><img border=0 src='http://riishojwebsoft.dk/reservation2/images/greenball.gif' alt='Lokalet er ledigt'></td>"

Else

Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><img src='http://riishojwebsoft.dk/reservation2/images/redball.gif' alt='Lokalet er optaget'><img src='http://riishojwebsoft.dk/reservation2/images/blank2.gif'><A HREF='vis_reservation.asp?reservation=fysik&lektion=2&dag=mandag&uge=" & uge &"'>"&rs("initialer")&"</A></td>"

rs.MoveNext

End if

'Tirsdag 2. lektion ******************************************************

strSQL = "SELECT initialer,klasse FROM reserver WHERE reservation='fysik' AND dag='Tirsdag' AND lektion='2' AND uge='" & uge & "'"
set rs = Conn.Execute(strSQL)
if rs.EOF or rs.BOF then
Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><A HREF='reserver_form_fysik.asp?uge=" & uge & "&dag=tirsdag&lektion=2&reservation=fysik'><img border=0 src='http://riishojwebsoft.dk/reservation2/images/greenball.gif' alt='Lokalet er ledigt'></td>"

Else

Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><img src='http://riishojwebsoft.dk/reservation2/images/redball.gif' alt='Lokalet er optaget'><img src='http://riishojwebsoft.dk/reservation2/images/blank2.gif'><A HREF='vis_reservation.asp?reservation=fysik&lektion=2&dag=tirsdag&uge=" & uge &"'>"&rs("initialer")&"</A></td>"

rs.MoveNext

End if

'Onsdag 2. lektion *******************************************************

strSQL = "SELECT initialer,klasse FROM reserver WHERE reservation='fysik' AND dag='Onsdag' AND lektion='2' AND uge='" & uge & "'"
set rs = Conn.Execute(strSQL)
if rs.EOF or rs.BOF then
Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><A HREF='reserver_form_fysik.asp?uge=" & uge & "&dag=onsdag&lektion=2&reservation=fysik'><img border=0 src='http://riishojwebsoft.dk/reservation2/images/greenball.gif' alt='Lokalet er ledigt'></td>"

Else

Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><img src='http://riishojwebsoft.dk/reservation2/images/redball.gif' alt='Lokalet er optaget'><img src='http://riishojwebsoft.dk/reservation2/images/blank2.gif'><A HREF='vis_reservation.asp?reservation=fysik&lektion=2&dag=onsdag&uge=" & uge &"'>"&rs("initialer")&"</A></td>"

rs.MoveNext

End if

'Torsdag 2. lektion ********************************************************

strSQL = "SELECT initialer,klasse FROM reserver WHERE reservation='fysik' AND dag='Torsdag' AND lektion='2' AND uge='" & uge & "'"
set rs = Conn.Execute(strSQL)
if rs.EOF or rs.BOF then
Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><A HREF='reserver_form_fysik.asp?uge=" & uge & "&dag=torsdag&lektion=2&reservation=fysik'><img border=0 src='http://riishojwebsoft.dk/reservation2/images/greenball.gif' alt='Lokalet er ledigt'></td>"

Else

Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><img src='http://riishojwebsoft.dk/reservation2/images/redball.gif' alt='Lokalet er optaget'><img src='http://riishojwebsoft.dk/reservation2/images/blank2.gif'><A HREF='vis_reservation.asp?reservation=fysik&lektion=2&dag=torsdag&uge=" & uge &"'>"&rs("initialer")&"</A></td>"

rs.MoveNext

End if

'Fredag 2. lektion **********************************************************

strSQL = "SELECT initialer,klasse FROM reserver WHERE reservation='fysik' AND dag='Fredag' AND lektion='2' AND uge='" & uge & "'"
set rs = Conn.Execute(strSQL)
if rs.EOF or rs.BOF then
Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><A HREF='reserver_form_fysik.asp?uge=" & uge & "&dag=fredag&lektion=2&reservation=fysik'><img border=0 src='http://riishojwebsoft.dk/reservation2/images/greenball.gif' alt='Lokalet er ledigt'></td>"

Else

Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><img src='http://riishojwebsoft.dk/reservation2/images/redball.gif' alt='Lokalet er optaget'><img src='http://riishojwebsoft.dk/reservation2/images/blank2.gif'><A HREF='vis_reservation.asp?reservation=fysik&lektion=2&dag=fredag&uge=" & uge &"'>"&rs("initialer")&"</A></td>"

rs.MoveNext

End if

Conn.Close
%>

</tr>
<tr>
<td width="8%" height="40" align="center" bgcolor="#669999">3. time</td>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("/reservation/data.mdb")
Conn.Open DSN

lektion = Request.Querystring("lektion")
dag = Request.Querystring("dag")

'Mandag 3. lektion *********************************************

strSQL = "SELECT initialer,klasse FROM reserver WHERE reservation='fysik' AND dag='Mandag' AND lektion='3' AND uge='" & uge & "'"
set rs = Conn.Execute(strSQL)
if rs.EOF or rs.BOF then
Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><A HREF='reserver_form_fysik.asp?uge=" & uge & "&dag=mandag&lektion=3&reservation=fysik'><img border=0 src='http://riishojwebsoft.dk/reservation2/images/greenball.gif' alt='Lokalet er ledigt'></td>"

Else

Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><img src='http://riishojwebsoft.dk/reservation2/images/redball.gif' alt='Lokalet er optaget'><img src='http://riishojwebsoft.dk/reservation2/images/blank2.gif'><A HREF='vis_reservation.asp?reservation=fysik&lektion=3&dag=mandag&uge=" & uge &"'>"&rs("initialer")&"</A></td>"

rs.MoveNext

End if

'Tirsdag 3. lektion ********************************************

strSQL = "SELECT initialer,klasse FROM reserver WHERE reservation='fysik' AND dag='Tirsdag' AND lektion='3' AND uge='" & uge & "'"
set rs = Conn.Execute(strSQL)
if rs.EOF or rs.BOF then
Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><A HREF='reserver_form_fysik.asp?uge=" & uge & "&dag=tirsdag&lektion=3&reservation=fysik'><img border=0 src='http://riishojwebsoft.dk/reservation2/images/greenball.gif' alt='Lokalet er ledigt'></td>"

Else

Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><img src='http://riishojwebsoft.dk/reservation2/images/redball.gif' alt='Lokalet er optaget'><img src='http://riishojwebsoft.dk/reservation2/images/blank2.gif'><A HREF='vis_reservation.asp?reservation=fysik&lektion=3&dag=tirsdag&uge=" & uge &"'>"&rs("initialer")&"</A></td>"

rs.MoveNext

End if

'Onsdag 3. lektion ********************************************

strSQL = "SELECT initialer,klasse FROM reserver WHERE reservation='fysik' AND dag='Onsdag' AND lektion='3' AND uge='" & uge & "'"
set rs = Conn.Execute(strSQL)
if rs.EOF or rs.BOF then
Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><A HREF='reserver_form_fysik.asp?uge=" & uge & "&dag=onsdag&lektion=3&reservation=fysik'><img border=0 src='http://riishojwebsoft.dk/reservation2/images/greenball.gif' alt='Lokalet er ledigt'></td>"

Else

Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><img src='http://riishojwebsoft.dk/reservation2/images/redball.gif' alt='Lokalet er optaget'><img src='http://riishojwebsoft.dk/reservation2/images/blank2.gif'><A HREF='vis_reservation.asp?reservation=fysik&lektion=3&dag=onsdag&uge=" & uge &"'>"&rs("initialer")&"</A></td>"

rs.MoveNext

End if

'Torsdag 3. lektion *********************************************

strSQL = "SELECT initialer,klasse FROM reserver WHERE reservation='fysik' AND dag='Torsdag' AND lektion='3' AND uge='" & uge & "'"
set rs = Conn.Execute(strSQL)
if rs.EOF or rs.BOF then
Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><A HREF='reserver_form_fysik.asp?uge=" & uge & "&dag=torsdag&lektion=3&reservation=fysik'><img border=0 src='http://riishojwebsoft.dk/reservation2/images/greenball.gif' alt='Lokalet er ledigt'></td>"

Else

Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><img src='http://riishojwebsoft.dk/reservation2/images/redball.gif' alt='Lokalet er optaget'><img src='http://riishojwebsoft.dk/reservation2/images/blank2.gif'><A HREF='vis_reservation.asp?reservation=fysik&lektion=3&dag=torsdag&uge=" & uge &"'>"&rs("initialer")&"</A></td>"

rs.MoveNext

End if

'Fredag 3. lektion ***********************************************

strSQL = "SELECT initialer,klasse FROM reserver WHERE reservation='fysik' AND dag='Fredag' AND lektion='3' AND uge='" & uge & "'"
set rs = Conn.Execute(strSQL)
if rs.EOF or rs.BOF then
Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><A HREF='reserver_form_fysik.asp?uge=" & uge & "&dag=fredag&lektion=3&reservation=fysik'><img border=0 src='http://riishojwebsoft.dk/reservation2/images/greenball.gif' alt='Lokalet er ledigt'></td>"

Else

Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><img src='http://riishojwebsoft.dk/reservation2/images/redball.gif' alt='Lokalet er optaget'><img src='http://riishojwebsoft.dk/reservation2/images/blank2.gif'><A HREF='vis_reservation.asp?reservation=fysik&lektion=3&dag=fredag&uge=" & uge &"'>"&rs("initialer")&"</A></td>"

rs.MoveNext

End if

Conn.Close
%>

</tr>
<tr>
<td width="8%" height="40" align="center" bgcolor="#669999">4. time</td>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("/reservation/data.mdb")
Conn.Open DSN

lektion = Request.Querystring("lektion")
dag = Request.Querystring("dag")

'Mandag 4. lektion ********************************************

strSQL = "SELECT initialer,klasse FROM reserver WHERE reservation='fysik' AND dag='Mandag' AND lektion='4' AND uge='" & uge & "'"
set rs = Conn.Execute(strSQL)
if rs.EOF or rs.BOF then
Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><A HREF='reserver_form_fysik.asp?uge=" & uge & "&dag=mandag&lektion=4&reservation=fysik'><img border=0 src='http://riishojwebsoft.dk/reservation2/images/greenball.gif' alt='Lokalet er ledigt'></td>"

Else

Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><img src='http://riishojwebsoft.dk/reservation2/images/redball.gif' alt='Lokalet er optaget'><img src='http://riishojwebsoft.dk/reservation2/images/blank2.gif'><A HREF='vis_reservation.asp?reservation=fysik&lektion=4&dag=mandag&uge=" & uge &"'>"&rs("initialer")&"</A></td>"

rs.MoveNext

End if

'Tirsdag 4. lektion *******************************************

strSQL = "SELECT initialer,klasse FROM reserver WHERE reservation='fysik' AND dag='Tirsdag' AND lektion='4' AND uge='" & uge & "'"
set rs = Conn.Execute(strSQL)
if rs.EOF or rs.BOF then
Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><A HREF='reserver_form_fysik.asp?uge=" & uge & "&dag=tirsdag&lektion=4&reservation=fysik'><img border=0 src='http://riishojwebsoft.dk/reservation2/images/greenball.gif' alt='Lokalet er ledigt'></td>"

Else

Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><img src='http://riishojwebsoft.dk/reservation2/images/redball.gif' alt='Lokalet er optaget'><img src='http://riishojwebsoft.dk/reservation2/images/blank2.gif'><A HREF='vis_reservation.asp?reservation=fysik&lektion=4&dag=tirsdag&uge=" & uge &"'>"&rs("initialer")&"</A></td>"

rs.MoveNext

End if

'Onsdag 4.time ***********************************************

strSQL = "SELECT initialer,klasse FROM reserver WHERE reservation='fysik' AND dag='Onsdag' AND lektion='4' AND uge='" & uge & "'"
set rs = Conn.Execute(strSQL)
if rs.EOF or rs.BOF then
Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><A HREF='reserver_form_fysik.asp?uge=" & uge & "&dag=onsdag&lektion=4&reservation=fysik'><img border=0 src='http://riishojwebsoft.dk/reservation2/images/greenball.gif' alt='Lokalet er ledigt'></td>"

Else

Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><img src='http://riishojwebsoft.dk/reservation2/images/redball.gif' alt='Lokalet er optaget'><img src='http://riishojwebsoft.dk/reservation2/images/blank2.gif'><A HREF='vis_reservation.asp?reservation=fysik&lektion=4&dag=onsdag&uge=" & uge &"'>"&rs("initialer")&"</A></td>"

rs.MoveNext

End if

'Torsdag 4. lektion ******************************************

strSQL = "SELECT initialer,klasse FROM reserver WHERE reservation='fysik' AND dag='Torsdag' AND lektion='4' AND uge='" & uge & "'"
set rs = Conn.Execute(strSQL)
if rs.EOF or rs.BOF then
Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><A HREF='reserver_form_fysik.asp?uge=" & uge & "&dag=torsdag&lektion=4&reservation=fysik'><img border=0 src='http://riishojwebsoft.dk/reservation2/images/greenball.gif' alt='Lokalet er ledigt'></td>"

Else

Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><img src='http://riishojwebsoft.dk/reservation2/images/redball.gif' alt='Lokalet er optaget'><img src='http://riishojwebsoft.dk/reservation2/images/blank2.gif'><A HREF='vis_reservation.asp?reservation=fysik&lektion=4&dag=torsdag&uge=" & uge &"'>"&rs("initialer")&"</A></td>"

rs.MoveNext

End if

'Fredag 4. lektion ******************************************

strSQL = "SELECT initialer,klasse FROM reserver WHERE reservation='fysik' AND dag='Fredag' AND lektion='4' AND uge='" & uge & "'"
set rs = Conn.Execute(strSQL)
if rs.EOF or rs.BOF then
Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><A HREF='reserver_form_fysik.asp?uge=" & uge & "&dag=fredag&lektion=4&reservation=fysik'><img border=0 src='http://riishojwebsoft.dk/reservation2/images/greenball.gif' alt='Lokalet er ledigt'></td>"

Else

Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><img src='http://riishojwebsoft.dk/reservation2/images/redball.gif' alt='Lokalet er optaget'><img src='http://riishojwebsoft.dk/reservation2/images/blank2.gif'><A HREF='vis_reservation.asp?reservation=fysik&lektion=4&dag=fredag&uge=" & uge &"'>"&rs("initialer")&"</A></td>"

rs.MoveNext

End if

Conn.Close
%>

</tr>
<tr>
<td width="8%" height="40" align="center" bgcolor="#669999">5. time</td>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("/reservation/data.mdb")
Conn.Open DSN

lektion = Request.Querystring("lektion")
dag = Request.Querystring("dag")

'Mandag 5. lektion *********************************************

strSQL = "SELECT initialer,klasse FROM reserver WHERE reservation='fysik' AND dag='Mandag' AND lektion='5' AND uge='" & uge & "'"
set rs = Conn.Execute(strSQL)
if rs.EOF or rs.BOF then
Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><A HREF='reserver_form_fysik.asp?uge=" & uge & "&dag=mandag&lektion=5&reservation=fysik'><img border=0 src='http://riishojwebsoft.dk/reservation2/images/greenball.gif' alt='Lokalet er ledigt'></td>"

Else

Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><img src='http://riishojwebsoft.dk/reservation2/images/redball.gif' alt='Lokalet er optaget'><img src='http://riishojwebsoft.dk/reservation2/images/blank2.gif'><A HREF='vis_reservation.asp?reservation=fysik&lektion=5&dag=mandag&uge=" & uge &"'>"&rs("initialer")&"</A></td>"

rs.MoveNext

End if

'Tirsdag 5. lektion *********************************************

strSQL = "SELECT initialer,klasse FROM reserver WHERE reservation='fysik' AND dag='Tirsdag' AND lektion='5' AND uge='" & uge & "'"
set rs = Conn.Execute(strSQL)
if rs.EOF or rs.BOF then
Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><A HREF='reserver_form_fysik.asp?uge=" & uge & "&dag=tirsdag&lektion=5&reservation=fysik'><img border=0 src='http://riishojwebsoft.dk/reservation2/images/greenball.gif' alt='Lokalet er ledigt'></td>"

Else

Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><img src='http://riishojwebsoft.dk/reservation2/images/redball.gif' alt='Lokalet er optaget'><img src='http://riishojwebsoft.dk/reservation2/images/blank2.gif'><A HREF='vis_reservation.asp?reservation=fysik&lektion=5&dag=tirsdag&uge=" & uge &"'>"&rs("initialer")&"</A></td>"

rs.MoveNext

End if

'Onsdag 5. lektion *********************************************

strSQL = "SELECT initialer,klasse FROM reserver WHERE reservation='fysik' AND dag='Onsdag' AND lektion='5' AND uge='" & uge & "'"
set rs = Conn.Execute(strSQL)
if rs.EOF or rs.BOF then
Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><A HREF='reserver_form_fysik.asp?uge=" & uge & "&dag=onsdag&lektion=5&reservation=fysik'><img border=0 src='http://riishojwebsoft.dk/reservation2/images/greenball.gif' alt='Lokalet er ledigt'></td>"

Else

Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><img src='http://riishojwebsoft.dk/reservation2/images/redball.gif' alt='Lokalet er optaget'><img src='http://riishojwebsoft.dk/reservation2/images/blank2.gif'><A HREF='vis_reservation.asp?reservation=fysik&lektion=5&dag=onsdag&uge=" & uge &"'>"&rs("initialer")&"</A></td>"

rs.MoveNext

End if

'Torsdag 5. lektion *********************************************

strSQL = "SELECT initialer,klasse FROM reserver WHERE reservation='fysik' AND dag='Torsdag' AND lektion='5' AND uge='" & uge & "'"
set rs = Conn.Execute(strSQL)
if rs.EOF or rs.BOF then
Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><A HREF='reserver_form_fysik.asp?uge=" & uge & "&dag=torsdag&lektion=5&reservation=fysik'><img border=0 src='http://riishojwebsoft.dk/reservation2/images/greenball.gif' alt='Lokalet er ledigt'></td>"

Else

Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><img src='http://riishojwebsoft.dk/reservation2/images/redball.gif' alt='Lokalet er optaget'><img src='http://riishojwebsoft.dk/reservation2/images/blank2.gif'><A HREF='vis_reservation.asp?reservation=fysik&lektion=5&dag=torsdag&uge=" & uge &"'>"&rs("initialer")&"</A></td>"

rs.MoveNext

End if

'Fredag 5. lektion **********************************************

strSQL = "SELECT initialer,klasse FROM reserver WHERE reservation='fysik' AND dag='Fredag' AND lektion='5' AND uge='" & uge & "'"
set rs = Conn.Execute(strSQL)
if rs.EOF or rs.BOF then
Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><A HREF='reserver_form_fysik.asp?uge=" & uge & "&dag=fredag&lektion=5&reservation=fysik'><img border=0 src='http://riishojwebsoft.dk/reservation2/images/greenball.gif' alt='Lokalet er ledigt'></td>"

Else

Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><img src='http://riishojwebsoft.dk/reservation2/images/redball.gif' alt='Lokalet er optaget'><img src='http://riishojwebsoft.dk/reservation2/images/blank2.gif'><A HREF='vis_reservation.asp?reservation=fysik&lektion=5&dag=fredag&uge=" & uge &"'>"&rs("initialer")&"</A></td>"

rs.MoveNext

End if

Conn.Close
%>
</tr>
<tr>
<td width="8%" height="40" align="center" bgcolor="#669999">6. time</td>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("/reservation/data.mdb")
Conn.Open DSN

lektion = Request.Querystring("lektion")
dag = Request.Querystring("dag")

'Mandag 6. lektion *********************************************

strSQL = "SELECT initialer,klasse FROM reserver WHERE reservation='fysik' AND dag='Mandag' AND lektion='6' AND uge='" & uge & "'"
set rs = Conn.Execute(strSQL)
if rs.EOF or rs.BOF then
Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><A HREF='reserver_form_fysik.asp?uge=" & uge & "&dag=mandag&lektion=6&reservation=fysik'><img border=0 src='http://riishojwebsoft.dk/reservation2/images/greenball.gif' alt='Lokalet er ledigt'></td>"

Else

Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><img src='http://riishojwebsoft.dk/reservation2/images/redball.gif' alt='Lokalet er optaget'><img src='http://riishojwebsoft.dk/reservation2/images/blank2.gif'><A HREF='vis_reservation.asp?reservation=fysik&lektion=6&dag=mandag&uge=" & uge &"'>"&rs("initialer")&"</A></td>"

rs.MoveNext

End if

'Tirsdag 6. lektion *********************************************

strSQL = "SELECT initialer,klasse FROM reserver WHERE reservation='fysik' AND dag='Tirsdag' AND lektion='6' AND uge='" & uge & "'"
set rs = Conn.Execute(strSQL)
if rs.EOF or rs.BOF then
Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><A HREF='reserver_form_fysik.asp?uge=" & uge & "&dag=tirsdag&lektion=6&reservation=fysik'><img border=0 src='http://riishojwebsoft.dk/reservation2/images/greenball.gif' alt='Lokalet er ledigt'></td>"

Else

Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><img src='http://riishojwebsoft.dk/reservation2/images/redball.gif' alt='Lokalet er optaget'><img src='http://riishojwebsoft.dk/reservation2/images/blank2.gif'><A HREF='vis_reservation.asp?reservation=fysik&lektion=6&dag=tirsdag&uge=" & uge &"'>"&rs("initialer")&"</A></td>"

rs.MoveNext

End if

'Onsdag 6. lektion **********************************************

strSQL = "SELECT initialer,klasse FROM reserver WHERE reservation='fysik' AND dag='Onsdag' AND lektion='6' AND uge='" & uge & "'"
set rs = Conn.Execute(strSQL)
if rs.EOF or rs.BOF then
Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><A HREF='reserver_form_fysik.asp?uge=" & uge & "&dag=onsdag&lektion=6&reservation=fysik'><img border=0 src='http://riishojwebsoft.dk/reservation2/images/greenball.gif' alt='Lokalet er ledigt'></td>"

Else

Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><img src='http://riishojwebsoft.dk/reservation2/images/redball.gif' alt='Lokalet er optaget'><img src='http://riishojwebsoft.dk/reservation2/images/blank2.gif'><A HREF='vis_reservation.asp?reservation=fysik&lektion=6&dag=onsdag&uge=" & uge &"'>"&rs("initialer")&"</A></td>"

rs.MoveNext

End if

'Torsdag 6. lektion ********************************************

strSQL = "SELECT initialer,klasse FROM reserver WHERE reservation='fysik' AND dag='Torsdag' AND lektion='6' AND uge='" & uge & "'"
set rs = Conn.Execute(strSQL)
if rs.EOF or rs.BOF then
Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><A HREF='reserver_form_fysik.asp?uge=" & uge & "&dag=torsdag&lektion=6&reservation=fysik'><img border=0 src='http://riishojwebsoft.dk/reservation2/images/greenball.gif' alt='Lokalet er ledigt'></td>"

Else

Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><img src='http://riishojwebsoft.dk/reservation2/images/redball.gif' alt='Lokalet er optaget'><img src='http://riishojwebsoft.dk/reservation2/images/blank2.gif'><A HREF='vis_reservation.asp?reservation=fysik&lektion=6&dag=torsdag&uge=" & uge &"'>"&rs("initialer")&"</A></td>"

rs.MoveNext

End if

'Fredag 6. lektion **********************************************

strSQL = "SELECT initialer,klasse FROM reserver WHERE reservation='fysik' AND dag='Fredag' AND lektion='6' AND uge='" & uge & "'"
set rs = Conn.Execute(strSQL)
if rs.EOF or rs.BOF then
Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><A HREF='reserver_form_fysik.asp?uge=" & uge & "&dag=fredag&lektion=6&reservation=fysik'><img border=0 src='http://riishojwebsoft.dk/reservation2/images/greenball.gif' alt='Lokalet er ledigt'></td>"

Else

Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><img src='http://riishojwebsoft.dk/reservation2/images/redball.gif' alt='Lokalet er optaget'><img src='http://riishojwebsoft.dk/reservation2/images/blank2.gif'><A HREF='vis_reservation.asp?reservation=fysik&lektion=6&dag=fredag&uge=" & uge &"'>"&rs("initialer")&"</A></td>"

rs.MoveNext

End if

Conn.Close
%>
</tr>
<tr>
<td width="8%" height="40" align="center" bgcolor="#669999">7. time</td>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("/reservation/data.mdb")
Conn.Open DSN

lektion = Request.Querystring("lektion")
dag = Request.Querystring("dag")

'Mandag 7. lektion *********************************************

strSQL = "SELECT initialer,klasse FROM reserver WHERE reservation='fysik' AND dag='Mandag' AND lektion='7' AND uge='" & uge & "'"
set rs = Conn.Execute(strSQL)
if rs.EOF or rs.BOF then
Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><A HREF='reserver_form_fysik.asp?uge=" & uge & "&dag=mandag&lektion=7&reservation=fysik'><img border=0 src='http://riishojwebsoft.dk/reservation2/images/greenball.gif' alt='Lokalet er ledigt'></td>"

Else

Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><img src='http://riishojwebsoft.dk/reservation2/images/redball.gif' alt='Lokalet er optaget'><img src='http://riishojwebsoft.dk/reservation2/images/blank2.gif'><A HREF='vis_reservation.asp?reservation=fysik&lektion=7&dag=mandag&uge=" & uge &"'>"&rs("initialer")&"</A></td>"

rs.MoveNext

End if

'Tirsdag 7. lektion *********************************************

strSQL = "SELECT initialer,klasse FROM reserver WHERE reservation='fysik' AND dag='Tirsdag' AND lektion='7' AND uge='" & uge & "'"
set rs = Conn.Execute(strSQL)
if rs.EOF or rs.BOF then
Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><A HREF='reserver_form_fysik.asp?uge=" & uge & "&dag=tirsdag&lektion=7&reservation=fysik'><img border=0 src='http://riishojwebsoft.dk/reservation2/images/greenball.gif' alt='Lokalet er ledigt'></td>"

Else

Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><img src='http://riishojwebsoft.dk/reservation2/images/redball.gif' alt='Lokalet er optaget'><img src='http://riishojwebsoft.dk/reservation2/images/blank2.gif'><A HREF='vis_reservation.asp?reservation=fysik&lektion=7&dag=tirsdag&uge=" & uge &"'>"&rs("initialer")&"</A></td>"

rs.MoveNext

End if

'Onsdag 7. lektion **********************************************

strSQL = "SELECT initialer,klasse FROM reserver WHERE reservation='fysik' AND dag='Onsdag' AND lektion='7' AND uge='" & uge & "'"
set rs = Conn.Execute(strSQL)
if rs.EOF or rs.BOF then
Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><A HREF='reserver_form_fysik.asp?uge=" & uge & "&dag=onsdag&lektion=7&reservation=fysik'><img border=0 src='http://riishojwebsoft.dk/reservation2/images/greenball.gif' alt='Lokalet er ledigt'></td>"

Else

Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><img src='http://riishojwebsoft.dk/reservation2/images/redball.gif' alt='Lokalet er optaget'><img src='http://riishojwebsoft.dk/reservation2/images/blank2.gif'><A HREF='vis_reservation.asp?reservation=fysik&lektion=7&dag=onsdag&uge=" & uge &"'>"&rs("initialer")&"</A></td>"

rs.MoveNext

End if

'Torsdag 7. lektion *********************************************

strSQL = "SELECT initialer,klasse FROM reserver WHERE reservation='fysik' AND dag='Torsdag' AND lektion='7' AND uge='" & uge & "'"
set rs = Conn.Execute(strSQL)
if rs.EOF or rs.BOF then
Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><A HREF='reserver_form_fysik.asp?uge=" & uge & "&dag=torsdag&lektion=7&reservation=fysik'><img border=0 src='http://riishojwebsoft.dk/reservation2/images/greenball.gif' alt='Lokalet er ledigt'></td>"

Else

Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><img src='http://riishojwebsoft.dk/reservation2/images/redball.gif' alt='Lokalet er optaget'><img src='http://riishojwebsoft.dk/reservation2/images/blank2.gif'><A HREF='vis_reservation.asp?reservation=fysik&lektion=7&dag=torsdag&uge=" & uge &"'>"&rs("initialer")&"</A></td>"

rs.MoveNext

End if

'Fredag 7. lektion **********************************************

strSQL = "SELECT initialer,klasse FROM reserver WHERE reservation='fysik' AND dag='Fredag' AND lektion='7' AND uge='" & uge & "'"
set rs = Conn.Execute(strSQL)
if rs.EOF or rs.BOF then
Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><A HREF='reserver_form_fysik.asp?uge=" & uge & "&dag=fredag&lektion=7&reservation=fysik'><img border=0 src='http://riishojwebsoft.dk/reservation2/images/greenball.gif' alt='Lokalet er ledigt'></td>"

Else

Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><img src='http://riishojwebsoft.dk/reservation2/images/redball.gif' alt='Lokalet er optaget'><img src='http://riishojwebsoft.dk/reservation2/images/blank2.gif'><A HREF='vis_reservation.asp?reservation=fysik&lektion=7&dag=fredag&uge=" & uge &"'>"&rs("initialer")&"</A></td>"

rs.MoveNext

End if

Conn.Close
%>
</tr>
</table>
<table>
<tr>
<%
Response.Write"<td align=center><A class='speciel2' HREF='reserver_form2.asp'>Reserver anden uge</A></td>"
%>
</tr>
</table>
<table>
<tr>
<%
Response.Write"<td align=center><A class='speciel2' HREF='../index.htm'>Tilbage til forsiden</A></td>"
%>
</tr>
</table>
</body>
</html>

Synes godt om

jespernaur Nybegynder

04. februar 2003 - 19:47 #1

Dette er ikke et svar på dit spørgsmål, men jeg tror du vil kunne reducere koden med en faktor ca. 35 ved at lave 2 løkker inden i hinanden, i stedet for eksplicit at have kode for hver eneste af de 35 timer:

for lektion = 1 to 7
for dag = 1 to 5
' generer data og HTML kode for (dag,lektion)
next
next

Mvh
Jesper Naur

Synes godt om

jespernaur Nybegynder

04. februar 2003 - 19:52 #2

Du skal iøvrigt være klar over, at din logik for at udregne 'fuge' ikke er skudsikker, da der findes år hvori uge 53 eksisterer. Der er tale om at

I ikke-skudår eksisterer uge 53, hvis 1. januar er en torsdag.
I skudår eksisterer uge 53, hvis 1. januar er en onsdag eller en torsdag.

Synes godt om

riishoj Nybegynder

04. februar 2003 - 20:06 #3

Tak for din kommentar. Jeg er meget interesseret i at få lavet den ændring, som du foreslår for at reducere koden, da jeg har skemaer med 4 reservationer pr. lektion, hvilket altså giver 4*35 kodestumper. Det fylder ca. 2200 linjer.
Desværre kan jeg ikke helt gennemskue, hvordan det skal gøres. Kan du prøve at forklare nærmere?
Med hensyn til 'fuge' er jeg godt klar over problemet med uge 53, men ved ikke hvordan det kan undgås.

Synes godt om

riishoj Nybegynder

04. februar 2003 - 20:07 #4

Jeg vil selvfølgelig også gerne have et svar på mit spørgsmål med datoerne.

Synes godt om

jespernaur Nybegynder

04. februar 2003 - 21:10 #5

Du er allerede lidt inde på det rigtige mht hvordan det skal gøres, i og med at du har ugenummeret som variabel i hver af de 35 lektioner (det er nok fordi at du i modsat fald havde været nødt til at gentage det hele for hver uge, altså 35*52=1820 gange, og det gad du dog trods alt ikke!!). Nu skal det bare udvides til også at omfatte dagnummeret indenfor ugen og lektionen indenfor dagen. Hvis vi tager en tilfældig lektion i midten af ugen, fx Onsdag, 5. lektion:

'Onsdag 5. lektion *********************************************

strSQL = "SELECT initialer,klasse FROM reserver WHERE reservation='fysik' AND dag='Onsdag' AND lektion='5' AND uge='" & uge & "'"
set rs = Conn.Execute(strSQL)
if rs.EOF or rs.BOF then
Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><A HREF='reserver_form_fysik.asp?uge=" & uge & "&dag=onsdag&lektion=5&reservation=fysik'><img border=0 src='http://riishojwebsoft.dk/reservation2/images/greenball.gif' alt='Lokalet er ledigt'></td>"

Else

Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><img src='http://riishojwebsoft.dk/reservation2/images/redball.gif' alt='Lokalet er optaget'><img src='http://riishojwebsoft.dk/reservation2/images/blank2.gif'><A HREF='vis_reservation.asp?reservation=fysik&lektion=5&dag=onsdag&uge=" & uge &"'>"&rs("initialer")&"</A></td>"

rs.MoveNext

End if

Vi skal nu have identificeret alt hvad der på konstant måde afhænger af dagnavn og lektionsnummer, og erstattet det med noget, der afledes af de 2 løkkevariable 'dag' og 'lektion' som jeg har skitseret ovenfor. Dagnavnet forekommer 3 gange

dag='Onsdag' fra SQL-sætningen
&dag=onsdag fra den første link
&dag=onsdag fra den anden link

Lektionsnummeret forekommer ligeledes 3 gange:

lektion='5' fra SQL-sætningen
&lektion=5 fra den første link
&lektion=5 fra den anden link

Lektionsnummeret er det nemmeste, da vi her direkte kan tage løkkevariablens værdi:

lektion='" & lektion & "' fra SQL-sætningen
&lektion=" & lektion & " fra hver af de 2 links

Med dagnavnet har du gjort livet en lille smule besværligt for dig selv (os?), da du staver det med stort i SQL og med lille i links'ne. Vi skal have en tabel, der oversætter dagnumre til dagnavne, og da der er brug for 2 måder (hhv med stort og med lille) gør vi det med 2 tabeller (det KAN også lade sig gøre med 1, men det er vi for dovne til idag!!). Koden herunder skal stå forrest som initialiseringskode:

dim SQLdag(7)
SQLdag(1) = "Mandag"
SQLdag(2) = "Tirsdag"
...
...
SQLdag(7) = "Søndag"

dim linkdag(7)
linkdag(1) = "mandag"
linkdag(2) = "tirsdag"
...
...
linkdag(7) = "søndag"

Nu bliver det muligt at oversætte løkkevariablen 'dag' til dagnavn, som følger:

dag='" & SQLdag(dag) & "' fra SQL-sætningen
&dag=" & linkdag(dag) & " fra hver af de 2 links

Nu skal vi bare sætte det hele sammen - koden herunder skal du sætte ind i stedet for koden for de 35 individuelle timer:

dim SQLdag(7)
SQLdag(1) = "Mandag"
SQLdag(2) = "Tirsdag"
...
...
SQLdag(7) = "Søndag"

dim linkdag(7)
linkdag(1) = "mandag"
linkdag(2) = "tirsdag"
...
...
linkdag(7) = "søndag"

for lektion = 1 to 7
for dag = 1 to 5
' 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><A HREF='reserver_form_fysik.asp?uge=" & uge & "&dag=" & linkdag(dag) & "&lektion=" & lektion & "&reservation=fysik'><img border=0 src='http://riishojwebsoft.dk/reservation2/images/greenball.gif' alt='Lokalet er ledigt'></td>"

Else

Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><img src='http://riishojwebsoft.dk/reservation2/images/redball.gif' alt='Lokalet er optaget'><img src='http://riishojwebsoft.dk/reservation2/images/blank2.gif'><A HREF='vis_reservation.asp?reservation=fysik&lektion=" & lektion & "&dag=" & linkdag(dag) & "&uge=" & uge &"'>"&rs("initialer")&"</A></td>"

rs.MoveNext

End if
next
next

Det var da vist noget af en reduktion (jeg tillader mig at smide et svar, da du nu fik svar på et spm, du ikke engang anede at du havde!)

Mvh
Jesper Naur

Synes godt om

riishoj Nybegynder

04. februar 2003 - 21:28 #6

Halløjsa, det var godt nok noget af et svar. Du skal have mange tak for dit forslag. Jeg var godt klar over, at det ikke var den smarteste måde at lave det på, men det var hvad jeg kunne finde ud af, så hvis dit forslag virker, er det så rigeligt de 60 point værd. Desværre bliver jeg nødt til at vente til i morgen med at teste det, da jeg ikke har energi til at prøve det i dag. Vil det være ok at afvise dit svar og så oprette et spørgsmål med point til dig efterfølgende? På den måde har jeg mulighed for at få et svar på det jeg egentlig spurgte om.
PS. Hvis du også kan klare det med datoerne smider jeg gerne flere point i kassen!!
mvh.riishoj:-)

Synes godt om

jespernaur Nybegynder

04. februar 2003 - 21:34 #7

Lad det stå til i morgen uden at acceptere/afvise. Så kan du jo se, om der skulle være dukket svar op til det oprindelige spm, og så kan du evt beslutte at forøge pointene og fordele efter fortjeneste.

Synes godt om

riishoj Nybegynder

04. februar 2003 - 21:36 #8

Synes godt om

jespernaur Nybegynder

05. februar 2003 - 00:11 #9

Jeg har her funktionen UgeTilDato, som skal kaldes med årstal, ugenummer, dag inden for ugen (mandag=1, tirsdag=2 osv). Det returnerer et Date-objekt svarende til den pågældende dato:

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

Du kan fx sige sådan her:

response.write( CStr(UgeTilDato(2003, 6, 3)) )

så skal den vise noget i retning af (der vil måske være lidt variation, afh af hvordan din datovisning er konfigureret):

2003.02.05

Mvh
Jesper Naur

Synes godt om

jespernaur Nybegynder

05. februar 2003 - 00:14 #10

Nej ups, der skulle have stået

response.write( CDate(UgeTilDato(2003, 6, 3)) )

Synes godt om

riishoj Nybegynder

05. februar 2003 - 16:12 #11

Jeg skulle jo gerne have ugenummeret ind som en variabel. Kan man det i din response.write? Er først lige kommet hjem fra arbejde, så jeg har ikke kunnet afprøve dine forslag. Jeg håber meget at det kan lade sig gøre at reducere koden, da dit forslag jo vil gøre det ulig nemmere at bruge skemaet på andre fag, for så skal jeg jo kun ændre navnet på faget(reservationen) og ikke også lektion og ugedag!! Hvis jeg ikke kan få det til at virke, håber jeg du gider at hjælpe.

Synes godt om

riishoj Nybegynder

05. februar 2003 - 16:52 #12

Jeg er ikke helt klar over, hvor jeg skal indsætte

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"

Synes godt om

jespernaur Nybegynder

05. februar 2003 - 17:12 #13

UgeTilDato er en funktion, som du kan kalde med 3 parametre - i mit eksempel har jeg valgt at bruge de 3 konstanter 2003, 6 og 3, men du kan ligesågodt bruge variable, der indeholder tallene, fx

aar = 2003
uge = 6
dagnummer = 3

response.write( CDate(UgeTilDato(aar, uge, dag)) )

Initialiseringen af tabellerne skal bare stå FØR løkkerne - altså sådan som jeg har angivet det i svaret ovenfor.

Mvh
Jesper Naur

Synes godt om

riishoj Nybegynder

05. februar 2003 - 19:20 #14

Jeg har nu prøvet at bikse det sammen, og det giver 2 problemer.

1. Når jeg indsætter en reservation går den godt nok i db'en, men den bliver ikke vist i skemaet (rød kugle og initialer)
2. Alle cellerne bliver nu vist i en lang række, dvs. 35 celler ved siden af hinanden.

Kan du se hvad der er galt? Scriptet ser sådan ud:

<html>
<%
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
%>
<head>
<title>Test - Demo</title>
<LINK REL="StyleSheet"
HREF="../style.css"
TYPE="text/css">

</head>

<body background="../images/background7.gif">
 
<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">fysik</td>
<%
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"<td width=20% align=left valign=bottom><A class='speciel' HREF='test.asp?uge=" & fuge & "'><--Forrige uge </A></td>"
%>

<td width="20%" align="left">Uge&nbsp


<%
Session.LCID = 1030

If Request.Querystring("uge") <> "" Then
uge = Request.Querystring("uge")
Else
uge = DatePart("ww",date())
End If

Response.Write ""
Response.Write uge
%>
</td>
<%

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"<td width=35% align=left valign=bottom><A class='speciel' HREF='test.asp?uge=" & nuge & "'>Næste uge--></A></td>"
%>

</tr>
</table>

</td>
</tr>
<tr>
<td width="8%" bgcolor="#669999"> </td>
<td width="18%" bgcolor="#669999">
Mandag</td>
<td width="18%" bgcolor="#669999">
Tirsdag</td>
<td width="19%" bgcolor="#669999">
Onsdag</td>
<td width="19%" bgcolor="#669999">
Torsdag</td>
<td width="19%" bgcolor="#669999">
Fredag</td>
</tr>
<tr>
<td width="8%" height="40" align="center" bgcolor="#669999">1. time</td>
<%
ConnString = "DSN=riishojwebsoftdkdsn"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConnString

lektion = Request.Querystring("lektion")
dag = Request.Querystring("dag")
reservation = Request.Querystring("reservation")

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
for dag = 1 to 5
' 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><A HREF='reserver_form_test.asp?uge=" & uge & "&dag=" & linkdag(dag) & "&lektion=" & lektion & "&reservation=test'><img border=0 src='http://riishojwebsoft.dk/reservation2/images/greenball.gif' alt='Lokalet er ledigt'></td>"

Else

Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><img src='../images/redball.gif' alt='Lokalet er optaget'><img src='../images/blank2.gif'><A HREF='vis_reservation.asp?reservation=test&lektion=" & lektion & "&dag=" & linkdag(dag) & "&uge=" & uge &"'>"&rs("initialer")&"</A></td>"

rs.MoveNext

End if
next
next

Conn.Close
%>
</tr>
<tr>
<td width="8%" height="40" align="center" bgcolor="#669999"> 2.
time</td>
</tr>
<tr>
<td width="8%" height="40" align="center" bgcolor="#669999">3.
time</td>
</tr>
<tr>
<td width="8%" height="40" align="center" bgcolor="#669999">4.
time</td>
</tr>
<tr>
<td width="8%" height="40" align="center" bgcolor="#669999">5.
time</td>
</tr>
<tr>
<td width="8%" height="40" align="center" bgcolor="#669999">6.
time</td>
</tr>
<tr>
<td width="8%" height="40" align="center" bgcolor="#669999">7.
time</td>
</tr>
</table>
<table>
<tr>
<%
Response.Write"<td align=center><A class='speciel2' HREF='reserver_form2.asp'>Reserver anden uge</A></td>"
%>
</tr>
</table>
<table>
<tr>
<%
Response.Write"<td align=center><A class='speciel2' HREF='../index.htm'>Tilbage til forsiden</A></td>"
%>
</tr>
</table>
</body>
</html>

Synes godt om

riishoj Nybegynder

05. februar 2003 - 19:24 #15

Ups. Har selv fundet den ene fejl. Havde ikke fået ændret fysik til test i SELECT'en!

Synes godt om

jespernaur Nybegynder

05. februar 2003 - 19:57 #16

Det er selvfølgelig fordi den ydre løkke mangler at begynde og afslutte hver tabelrække. Jeg havde desuden overset, at der var en søjle til timenumrene, den har jeg nu også flyttet ind i løkken. Det er muligt, det ikke er helt på plads, men det burde være en forbedring.

Nu har jeg rettet i den kode du har vist, så den sidste fejl kommer du nok til at rette igen.

Mvh
Jesper Naur

<html>
<%
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
%>
<head>
<title>Test - Demo</title>
<LINK REL="StyleSheet"
HREF="../style.css"
TYPE="text/css">

</head>

<body background="../images/background7.gif">
 
<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">fysik</td>
<%
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"<td width=20% align=left valign=bottom><A class='speciel' HREF='test.asp?uge=" & fuge & "'><--Forrige uge </A></td>"
%>

<td width="20%" align="left">Uge&nbsp


<%
Session.LCID = 1030

If Request.Querystring("uge") <> "" Then
uge = Request.Querystring("uge")
Else
uge = DatePart("ww",date())
End If

Response.Write ""
Response.Write uge
%>
</td>
<%

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"<td width=35% align=left valign=bottom><A class='speciel' HREF='test.asp?uge=" & nuge & "'>Næste uge--></A></td>"
%>

</tr>
</table>

</td>
</tr>
<tr>
<td width="8%" bgcolor="#669999"> </td>
<td width="18%" bgcolor="#669999">
Mandag</td>
<td width="18%" bgcolor="#669999">
Tirsdag</td>
<td width="19%" bgcolor="#669999">
Onsdag</td>
<td width="19%" bgcolor="#669999">
Torsdag</td>
<td width="19%" bgcolor="#669999">
Fredag</td>
</tr>

<%
ConnString = "DSN=riishojwebsoftdkdsn"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConnString

lektion = Request.Querystring("lektion")
dag = Request.Querystring("dag")
reservation = Request.Querystring("reservation")

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>" & lektion & ". time</td>"

for dag = 1 to 5
' 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><A HREF='reserver_form_test.asp?uge=" & uge & "&dag=" & linkdag(dag) & "&lektion=" & lektion & "&reservation=test'><img border=0 src='http://riishojwebsoft.dk/reservation2/images/greenball.gif' alt='Lokalet er ledigt'></td>"

Else

Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><img src='../images/redball.gif' alt='Lokalet er optaget'><img src='../images/blank2.gif'><A HREF='vis_reservation.asp?reservation=test&lektion=" & lektion & "&dag=" & linkdag(dag) & "&uge=" & uge &"'>"&rs("initialer")&"</A></td>"

rs.MoveNext

End if
next
Response.Write "</tr>"
next

Conn.Close
%>
</tr>
<tr>
<td width="8%" height="40" align="center" bgcolor="#669999"> 2.
time</td>
</tr>
<tr>
<td width="8%" height="40" align="center" bgcolor="#669999">3.
time</td>
</tr>
<tr>
<td width="8%" height="40" align="center" bgcolor="#669999">4.
time</td>
</tr>
<tr>
<td width="8%" height="40" align="center" bgcolor="#669999">5.
time</td>
</tr>
<tr>
<td width="8%" height="40" align="center" bgcolor="#669999">6.
time</td>
</tr>
<tr>
<td width="8%" height="40" align="center" bgcolor="#669999">7.
time</td>
</tr>
</table>
<table>
<tr>
<%
Response.Write"<td align=center><A class='speciel2' HREF='reserver_form2.asp'>Reserver anden uge</A></td>"
%>
</tr>
</table>
<table>
<tr>
<%
Response.Write"<td align=center><A class='speciel2' HREF='../index.htm'>Tilbage til forsiden</A></td>"
%>
</tr>
</table>
</body>
</html>

Synes godt om

riishoj Nybegynder

05. februar 2003 - 20:36 #17

Du er godt nok skrap til det her, for det virker bare perfekt!
Nu skal jeg bare have reduceret mine andre skemaer med mere en en reservation pr. lektion, men det burde jeg vel kunne finde ud af. Jeg skal vel bare gentage koden men med reservation=xx.

Mht. til dato og ugenummer så forstår jeg stadig ikke hvordan jeg henter det variable ugenummer ind i funktionen. Altså når jeg klikker en uge frem eller tilbage, så ændres ugenummeret jo automatisk. Hvordan får jeg det skrevet ind i datofunktionen?

Synes godt om

riishoj Nybegynder

05. februar 2003 - 20:37 #18

en=end

Synes godt om

jespernaur Nybegynder

05. februar 2003 - 21:29 #19

Du skal kalde funktionen UgeTilDato og angive den variabel, der indeholder dit ugenummer, som parameter 2.

Jeg antager, at du ønsker at have de rigtige datoer i den øverste række, hvor du i forvejen har ugedagene. Du kan gøre sådan her:

Funktionen UgeTilDato, altså koden

Function UgeTilDato(aar,uge,dag)
...
...
End Function

som jeg tidligere har vist, skal du sætte ind næsten allerforrest, altså umiddelbart efter den første

<%

Sidenhen skal du have fat i året - her viser jeg en primitiv verson, men det du skal gøre ligner meget det du gør for at få fat i aktuel uge, hvis den ikke kommer ind over querystrengen:

<%
aar = 2003 ' Her skal der opfindes noget mere intelligent for at finde det rigtige år
%>

...
...

Her er så en ændret udgave af overskrifts-rækken med ugedage og aktuel dato. Der er nok lidt formatteringsproblemer, men det burde du nok selv kunne klare.

<tr>
<td width="8%" bgcolor="#669999"> </td>
<td width="18%" bgcolor="#669999">
Mandag
<%=CDate(UgeTilDato(aar, uge, 1))%></td>
<td width="18%" bgcolor="#669999">
Tirsdag
<%=CDate(UgeTilDato(aar, uge, 2))%></td>
<td width="19%" bgcolor="#669999">
Onsdag
<%=CDate(UgeTilDato(aar, uge, 3))%></td>
<td width="19%" bgcolor="#669999">
Torsdag
<%=CDate(UgeTilDato(aar, uge, 4))%></td>
<td width="19%" bgcolor="#669999">
Fredag
<%=CDate(UgeTilDato(aar, uge, 5))%></td>
</tr>

Mvh
Jesper Naur

Synes godt om

jespernaur Nybegynder

05. februar 2003 - 21:46 #20

Nu hvor jeg har reduceret antallet af kode-kopier fra 35 til 1, bør du ikke begynde at øge det igen! Hvis du har skemaer med 4 reservationer pr. lektion må det da kunne klares med endnu en løkke indeni de 2 vi allerede har, altså:

for lektion = 1 to 7
for dag = 1 to 5
for reservation = 1 to 4
' generer data og HTML kode for (dag,lektion,reservation)
next
next
next

Princippet er fuldstændig identisk med hvad jeg ovenfor har gjort!

Synes godt om

riishoj Nybegynder

05. februar 2003 - 21:51 #21

Jeg ved ikke om jeg har sat det rigtigt sammen. Får i hvert fald en Error 507. Det ser nu sådan ud:

<html>
<%
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
%>
<head>
<title>Test - Demo</title>
<LINK REL="StyleSheet"
HREF="../style.css"
TYPE="text/css">

</head>

<body background="../images/background7.gif">
 
<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">Test</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
fuge = uge - 1
If fuge < 1 then
fuge = 52
End If

Response.Write"<td width=20% align=left valign=bottom><A class='speciel' HREF='test2.asp?uge=" & fuge & "'><--Forrige uge </A></td>"
%>

<td width="20%" align="left">Uge&nbsp


<%
Session.LCID = 1030

If Request.Querystring("uge") <> "" Then
uge = Request.Querystring("uge")
Else
uge = DatePart("ww",date())
End If

Response.Write ""
Response.Write uge
%>
</td>
<%

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"<td width=35% align=left valign=bottom><A class='speciel' HREF='test2.asp?uge=" & nuge & "'>Næste uge--></A></td>"
%>

</tr>
</table>

</td>
</tr>
<%
aar = 2003 ' Her skal der opfindes noget mere intelligent for at finde det rigtige år
%>

<tr>
<td width="8%" bgcolor="#669999"> </td>
<td width="18%" bgcolor="#669999">
Mandag
<%=CDate(UgeTilDato(aar, uge, 1))%></td>
<td width="18%" bgcolor="#669999">
Tirsdag
<%=CDate(UgeTilDato(aar, uge, 2))%></td>
<td width="19%" bgcolor="#669999">
Onsdag
<%=CDate(UgeTilDato(aar, uge, 3))%></td>
<td width="19%" bgcolor="#669999">
Torsdag
<%=CDate(UgeTilDato(aar, uge, 4))%></td>
<td width="19%" bgcolor="#669999">
Fredag
<%=CDate(UgeTilDato(aar, uge, 5))%></td>
</tr>
<%
ConnString = "DSN=riishojwebsoftdkdsn"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConnString

lektion = Request.Querystring("lektion")
dag = Request.Querystring("dag")
reservation = Request.Querystring("reservation")

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>" & lektion & ". time</td>"

for dag = 1 to 5
' generer data og HTML kode for (dag,lektion)
strSQL = "SELECT initialer,klasse FROM reserver WHERE reservation='test2' 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><A HREF='reserver_form_test.asp?uge=" & uge & "&dag=" & linkdag(dag) & "&lektion=" & lektion & "&reservation=test2'><img border=0 src='http://riishojwebsoft.dk/reservation2/images/greenball.gif' alt='Lokalet er ledigt'></td>"

Else

Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><img src='../images/redball.gif' alt='Lokalet er optaget'><img src='../images/blank2.gif'><A HREF='vis_reservation.asp?reservation=test2&lektion=" & lektion & "&dag=" & linkdag(dag) & "&uge=" & uge &"'>"&rs("initialer")&"</A></td>"

rs.MoveNext

End if
next
Response.Write "</tr>"
next

Conn.Close
%>
</table>
<table>
<tr>
<%
Response.Write"<td align=center><A class='speciel2' HREF='reserver_form2.asp'>Reserver anden uge</A></td>"
%>
</tr>
</table>
<table>
<tr>
<%
Response.Write"<td align=center><A class='speciel2' HREF='../index.htm'>Tilbage til forsiden</A></td>"
%>
</tr>
</table>
</body>
</html>

Synes godt om

riishoj Nybegynder

05. februar 2003 - 21:56 #22

Til din sidste kommentar: Jeg vil lægge mig i selen for at finde ud af det du skriver, og bevise at alle dine anstrengelser ikke har været forgæves, meeeeeeeeeen du har måske fornemmet, at jeg ikke er den helt store asp-hej. (Men jeg vil gerne lære!)

Synes godt om

jespernaur Nybegynder

05. februar 2003 - 22:24 #23

Jeg har nu for første gang forsøgt at køre din side som den står - jeg har hidtil afholdt mig, da jeg vidste det ville gå galt fordi jeg ikke har din database. Jeg mener at have konstateret, at det formelt set er forkert, at du forrest skriver:

<html>
<%
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
%>

altså <html> INDEN de 3 ændringer af Response. Hvorfor det er gået godt for dig hidtil, kan jeg ikke sige. Det gik galt for mig i linie 3 også med en af de gamle versioner. Nu har jeg ændret til, altså flyttet <html> 5 linier ned:

<%
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
%>
<html>

Så spiller det hos mig!

Synes godt om

riishoj Nybegynder

05. februar 2003 - 22:40 #24

Jeg får stadig samme fejl, altså

HTTP Error 507
507 Unexpected

The Web server encountered an unexpected error while communicating with the ASP service.

Please contact the server's administrator if this problem persists.

Synes godt om

riishoj Nybegynder

05. februar 2003 - 22:43 #25

Bliver nødt til at stoppe nu, da jeg skal tidligt op i morgen. Jeg håber, at du kan hjælpe med at få det sidste her på plads i morgen.
mvh. riishoj

Synes godt om

jespernaur Nybegynder

05. februar 2003 - 22:53 #26

Nå, så skal vi til at lave systematisk fejlsøgning hos dig, da jeg ikke kan reproducere fejlen hos mig.

Prøv at pille al indmaden ud af UgeTilDato, så der kommer til at stå:

Function UgeTilDato(aar,uge,dag)
UgeTilDato = date()
End Function

Så vil den bare returnere dagen idag, uden de komplicerede udregninger.

Synes godt om

jespernaur Nybegynder

05. februar 2003 - 23:05 #27

Næste spørgsmål: Er det dig selv, der styrer webserveren, eller ligger den på et webhotel ude i byen?
Ved du hvad det er for en webserver? Navn, version, operativsystem etc.?

Synes godt om

riishoj Nybegynder

06. februar 2003 - 06:44 #28

Siderne er hosted hos Enavn.dk og ligger på en Cobalt server med Linux.

Reduktionen af koden har givet mig et lille problem. Jeg har behov for at kunne blokere en eller flere positioner på skemaet på forhånd, så de ikke kan reserveres, f.eks. 5. lektion om onsdagen. Det har jeg jo før kunnet gøre ved at pille denne kodestump ud af systemet, men den går jo ikke nu. Findes der en løsning på dette?
Jeg har ikke prøvet at ændre funktionen som foreslået. Det bliver først i eftermiddag, når jeg kommer hjem fra arbejde.

mv. riishoj

Synes godt om

jespernaur Nybegynder

06. februar 2003 - 17:40 #29

Så vidt jeg kan se, virker det sådan at hvis rækken ikke findes i databasen, opfattes den pågældende lektion som 'fri' og kan reserveres, hvorimod hvis den findes, opfattes det som at lektionen er reserveret og kan ikke fås.

Den nemme løsning (på blokerede reservationer) er vel at du så snart du ved, hvilke lektioner der skal blokeres, reserverer dem med håndkraft, og dermed opnår at andre ikke kan reservere dem. De blokerede lektioner vil så simpelt hen se reserverede ud.

Alternativt, hvis du ønsker at vise at en lektion er blokeret, og ikke blot reserveret, kan du oprette rækken i databasen med et særligt felt, der betyder blokeret. Det kan du så i koden bruge til at vise det på en anden måde, evt slet ikke.

Mvh
Jesper Naur

Synes godt om

riishoj Nybegynder

06. februar 2003 - 18:47 #30

Problemet er, at den omtalte blokeringer typisk vil gælde for et helt skoleår, og det vil derfor være ganske besværligt at gå ind og blokere ved håndkraft. F.eks. er fysiklokalet på forhånd blokeret 14 lektioner om ugen ud af de 35, så det vil altså betyde 14*52 reservationer pr. håndkraft!

Synes godt om

jespernaur Nybegynder

06. februar 2003 - 18:58 #31

Så kan man lave en separat tabel i databasen, som kun omfatter en enkelt uge, men til gengæld gælder hver eneste uge. Det vil kun kræve et enkelt ekstra databaseopslag i koden.

Synes godt om

riishoj Nybegynder

06. februar 2003 - 19:03 #32

Ikke helt forstået. Kan du eksemplificere det?

Synes godt om

riishoj Nybegynder

06. februar 2003 - 19:07 #33

Jeg har ikke prøvet at arbejde med datofunktionen endnu, da jeg lige er kommet hjem. Prøver efter lidt mad, så jeg håber at du hænger på.

Synes godt om

jespernaur Nybegynder

06. februar 2003 - 19:27 #34

Du laver en tabel 'blokeret', med felterne 'dag' og 'lektion' (og hvis det skal være helt generelt, kunne man også indbygge et felt 'lokale', men lad os lige glemme dette).

Du sørger for ved skoleårets begyndelse at indlægge de blokerede lektioner i 'blokeret' tabellen.

Når du skal vise tilstanden af en given lektion, har du følgende oplysninger til din rådighed:

uge - det aktuelle ugenummer
dag - dagen inden for ugen
lektion - lektion inden for dagen

Koden kunne nu skitseret se således ud:

if blokeret(dag,lektion) eksisterer then
' lektionen er blokeret
else
if reserver(uge,dag,lektion) eksisterer then
' lektionen er reserveret
else
' lektionen er fri, kan reserveres af hvem der måtte ønske det
end if
end if

Du vil bemærke, at beslutningen omkring blokeret IKKE afhænger af ugenummeret, og dermed har du mulighed for centralt at definere blokeringer, der gælder hver eneste uge.

Synes godt om

riishoj Nybegynder

06. februar 2003 - 19:47 #35

Jeg prøver lige at opsummere for at se om jeg har forstået dig rigtigt.

Jeg laver en ny tabel til db'en med feltnavnene 'dag' og 'lektion' . Så skal det her

' generer data og HTML kode for (dag,lektion)
strSQL = "SELECT initialer,klasse FROM reserver WHERE reservation='test2' 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><A HREF='reserver_form_test.asp?uge=" & uge & "&dag=" & linkdag(dag) & "&lektion=" & lektion & "&reservation=test2'><img border=0 src='http://riishojwebsoft.dk/reservation2/images/greenball.gif' alt='Lokalet er ledigt'></td>"

Else

Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><img src='../images/redball.gif' alt='Lokalet er optaget'><img src='../images/blank2.gif'><A HREF='vis_reservation.asp?reservation=test2&lektion=" & lektion & "&dag=" & linkdag(dag) & "&uge=" & uge &"'>"&rs("initialer")&"</A></td>"

rs.MoveNext

End if

erstattes af af

if blokeret(dag,lektion) eksisterer then
' lektionen er blokeret
else
if reserver(uge,dag,lektion) eksisterer then
' lektionen er reserveret
else
' lektionen er fri, kan reserveres af hvem der måtte ønske det
end if
end if

Der skal selvfølgelig også en SELECT på. Jeg ved bare ikke hvordan man SELECT'er fra 2 forskellige tabeller, hvis du forstår hvad jeg mener.

Synes godt om

riishoj Nybegynder

06. februar 2003 - 19:59 #36

Jeg har nu prøvet at reducere datofunktionen til

Function UgeTilDato(aar,uge,dag)
UgeTilDato = date()
End Function

som du foreslog, men jeg får stadig HTTP Error 507.

Synes godt om

jespernaur Nybegynder

06. februar 2003 - 20:55 #37

Jeg gentager lige min skitse med linienumre, så kan jeg lettere snakke om den:

1 if blokeret(dag,lektion) eksisterer then
2 ' lektionen er blokeret
3 else
4 if reserver(uge,dag,lektion) eksisterer then
5 ' lektionen er reserveret
6 else
7 ' lektionen er fri, kan reserveres af hvem der måtte ønske det
8 end if
9 end if

Der er ikke tale om at den kode vi har idag skal erstattes, der skal dog tilføjes noget mere. Den kode vi har idag, og som du også har vist i seneste indlæg, svarer præcist til linierne 4-8 i skitsen. Du vil for eksempel bemærke, at det jeg i skitsen har kaldt

4 if reserver(uge,dag,lektion) eksisterer then

er det, der fuldt ekspanderet i koden ser således ud:

strSQL = "SELECT initialer,klasse FROM reserver WHERE reservation='test2' AND dag='" & SQLdag(dag) & "' AND lektion='" & lektion & "' AND uge='" & uge & "'"
set rs = Conn.Execute(strSQL)
if rs.EOF or rs.BOF then

Dette, samt resten af hvad du har vist, skal naturligvis altsammen bibeholdes uændret, MEN: Der skal sættes en yderligere betingelse udenom: linierne 1,2,3 samt 9 i skitsen. Det vigtigste er linie 1, denne involverer SQL-opslaget i den nye tabel samt undersøgelsen af, hvorvidt rækken med (dag,lektion) eksisterer. Der er med andre ord ikke tale om at du skal lave SQL-opslag i 2 tabeller på en gang, men derimod bare at du skal lave et separat SQL-opslag i en anden tabel. Det du her får/ikke får tilbage skal så betinge det videre forløb.

Videre til fejl 507. Vi må sandsynligvis konstatere, at det ikke var indmaden til UgeTilDato der var problemet, så vi fortsætter med at eksperimentere med overskrifts-rækken. Det nemmeste er nok, at vi øver os på cellen med Mandag indtil vi får den til at virke, samt at du foreløbig smider cellerne med tirsdag til fredag ud, for at slippe for for mange identiske rettelser inden vi ved hvad der skal til. Altså: Bibehold den rudimentære UgeTilDato, overskriftscellen for Mandag rettes til:

<td width="18%" bgcolor="#669999">
Mandag
<% Response.Write CDate(UgeTilDato(aar, uge, 1)) %></td>

cellerne for tirsdag til fredag smides ud. Lad os se hvad det giver.

Synes godt om

riishoj Nybegynder

06. februar 2003 - 21:23 #38

Når jeg sletter cellerne tirsdag-fredag kommer der ikke nogen fejl 507, men mandagscellen ser sådan ud

Mandag |e@à?v@?Se@?@(å?¾p©

Det har jeg ligegodt aldrig set før!

Mht. til det andet problem, så tror jeg, at jeg er ved at forstå det, men om jeg så kan få det til at virke er jo et andet problem.

Synes godt om

jespernaur Nybegynder

06. februar 2003 - 21:53 #39

Jeg kommer vist til at indrømme et fælt tilfælde af røde ører: CDate konverterer fra en tekst til et Date-objekt og ikke omvendt, som jeg hidtil troede! Man skal bruge FormatDateTime, prøv med mandag som følger:

<td width="18%" bgcolor="#669999">
Mandag
<% Response.Write FormatDateTime(UgeTilDato(aar, uge, 1), vbShortDate) %></td>

Pinligt!

Synes godt om

riishoj Nybegynder

06. februar 2003 - 21:57 #40

Sorry, havde glemt response.write i "mandagscellen". Nu får jeg desværre igen fejl 507.

Synes godt om

jespernaur Nybegynder

06. februar 2003 - 22:00 #41

Hvor er vi henne? Er det med CDate eller FormatDateTime du får 507?

Synes godt om

riishoj Nybegynder

06. februar 2003 - 22:02 #42

Din seneste ændring giver

Mandag ?????

men dog ingen fejl 507

Synes godt om

riishoj Nybegynder

06. februar 2003 - 22:09 #43

Hvis jeg sætter et ind efter Mandag kommer cellen til at se sådan ud

Mandag
???O???????????

Synes godt om

jespernaur Nybegynder

06. februar 2003 - 22:15 #44

Hvad sker der hvis du skriver

<td width="18%" bgcolor="#669999">
Mandag
<% Response.Write FormatDateTime(Date(), vbShortDate) %></td>

Synes godt om

riishoj Nybegynder

06. februar 2003 - 22:20 #45

Så ser mandag sådan ud

Mandag
???O??????????

Det virker meget underligt, gør det ikke?

Synes godt om

jespernaur Nybegynder

06. februar 2003 - 22:31 #46

Jeg forstår mindre og mindre - men der er da andre kneb, selvom vi efterhånden nærmer os feberhuggene:

<td width="18%" bgcolor="#669999">
Mandag
<% Response.Write Date() %></td>

Synes godt om

riishoj Nybegynder

06. februar 2003 - 22:42 #47

Nu går det helt galt. Jeg får

Mandag
|e@à?v@?Se@?@(å?¾p©

Har også prøvet at sætte <% Response.Write Date() %> ind på en ny side, og den udskriver siden uden problemer

Synes godt om

riishoj Nybegynder

06. februar 2003 - 22:43 #48

siden=datoen

Synes godt om

jespernaur Nybegynder

06. februar 2003 - 22:51 #49

Er det tilstedeværelsen af den rudimentære, og lige for tiden helt ubrugte UgeTilDato? Står den et forkert sted i koden? Prøv at slette den.

Synes godt om

riishoj Nybegynder

06. februar 2003 - 22:52 #50

Desuden sker der det underlige, at hvis jeg opdaterer siden , så får jeg fejl 507, og hvis jeg opdaterer igen, så viser den atter
Mandag
|e@à?v@?Se@?@(å?¾p©

osv.

Synes godt om

jespernaur Nybegynder

06. februar 2003 - 22:57 #51

Endnu et feberhug - prøv at bortkommentere linien:

Session.LCID = 1030

altså

'Session.LCID = 1030

Synes godt om

riishoj Nybegynder

06. februar 2003 - 22:59 #52

Det er dog utroligt. Har slettet alt UgeTilDato, men det ændrer intet. Paster lige hele koden, for jeg må simpelthen have lavet et eller andet forkert et sted.

<%
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">
 
<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">Test</td>
<%

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"<td width=20% align=left valign=bottom><A class='speciel' HREF='test2.asp?uge=" & fuge & "'><--Forrige uge </A></td>"
%>

<td width="20%" align="left">Uge&nbsp


<%
Session.LCID = 1030

If Request.Querystring("uge") <> "" Then
uge = Request.Querystring("uge")
Else
uge = DatePart("ww",date())
End If

Response.Write ""
Response.Write uge
%>
</td>
<%

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"<td width=35% align=left valign=bottom><A class='speciel' HREF='test2.asp?uge=" & nuge & "'>Næste uge--></A></td>"
%>

</tr>
</table>

</td>
</tr>

<tr>
<td width="8%" bgcolor="#669999"> </td>
<td width="18%" bgcolor="#669999">
Mandag 
<% Response.Write Date() %></td>
</tr>
<%
ConnString = "DSN=riishojwebsoftdkdsn"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConnString

lektion = Request.Querystring("lektion")
dag = Request.Querystring("dag")
reservation = Request.Querystring("reservation")

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>" & lektion & ". time</td>"

for dag = 1 to 5
' generer data og HTML kode for (dag,lektion)
strSQL = "SELECT initialer,klasse FROM reserver WHERE reservation='test2' 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><A HREF='reserver_form_test.asp?uge=" & uge & "&dag=" & linkdag(dag) & "&lektion=" & lektion & "&reservation=test2'><img border=0 src='http://riishojwebsoft.dk/reservation2/images/greenball.gif' alt='Lokalet er ledigt'></td>"

Else

Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><img src='../images/redball.gif' alt='Lokalet er optaget'><img src='../images/blank2.gif'><A HREF='vis_reservation.asp?reservation=test2&lektion=" & lektion & "&dag=" & linkdag(dag) & "&uge=" & uge &"'>"&rs("initialer")&"</A></td>"

rs.MoveNext

End if
next
Response.Write "</tr>"
next

Conn.Close
%>
</table>
<table>
<tr>
<%
Response.Write"<td align=center><A class='speciel2' HREF='reserver_form2.asp'>Reserver anden uge</A></td>"
%>
</tr>
</table>
<table>
<tr>
<%
Response.Write"<td align=center><A class='speciel2' HREF='../index.htm'>Tilbage til forsiden</A></td>"
%>
</tr>
</table>
</body>
</html>

Synes godt om

riishoj Nybegynder

06. februar 2003 - 23:08 #53

Bingo! datoen bliver returneret når Session.LCID = 1030
bliver bortkommenteret.

Synes godt om

riishoj Nybegynder

06. februar 2003 - 23:16 #54

Har du en forklaring på, hvorfor serveren kokser med Session.LCID = 1030
Det er ret iriterende at køre med am. datoformat.

Synes godt om

jespernaur Nybegynder

06. februar 2003 - 23:17 #55

Ufatteligt - jeg kørte med din side igår uden at Session.LCID gav problemer, men det er så pludselig startet idag. Nå - vi må se at få retableret det det drejer sig om, først og fremmest den oprindelige UgeTilDato - den står jeg stadig ved. Dernæst prøv først mandag som herunder:

<td width="18%" bgcolor="#669999">
Mandag
<% Response.Write UgeTilDato(aar, uge, 1) %></td>

og hvis det virker kan du e-n-d-e-l-i-g få de øvrige dage til at virke

Mvh
Jesper Naur

Synes godt om

riishoj Nybegynder

06. februar 2003 - 23:28 #56

Jeg var allerede gået igang med at genskabe koden. Når jeg indsætter

<% Response.Write FormatDateTime(UgeTilDato(aar, uge, 1), vbShortDate) %>

returneres smukt

Mandag
2/3/2003

Men jeg ville jo gerne have dansk datoformat. Tror du, at det er en serverfejl? Jeg kan jo prøve at kontakte support og spørge.

Synes godt om

jespernaur Nybegynder

06. februar 2003 - 23:39 #57

Når nu du har fået det hele retableret, og det fungerer som det skal (bortset fra det amerikanske datoformat), kan du forsøge følgende: Indsæt linien

<%@ LCID=1030%>

som den ALLERFORRESTE linie - det er en lidt anden måde at gøre det på, måske kommer det så endelig til at virke.

Synes godt om

riishoj Nybegynder

06. februar 2003 - 23:48 #58

Når jeg gør det sætter den ??? under alle ugedagene, så den vil åbenbart ikke acceptere <%@ LCID=1030%>

Synes godt om

jespernaur Nybegynder

06. februar 2003 - 23:54 #59

Jeg tror tiden er kommet til at du skal høre support's mening omkring LCID=1030, men hvis det ikke bringer noget er der altid muligheden for at formattere datoen med håndkraft - så ved man hvad man får. Det bliver dog ikke i dag!

godnat herfra
Jesper Naur

Synes godt om

riishoj Nybegynder

06. februar 2003 - 23:55 #60

Har lige prøvet at klikke tilbage i skemaet. Alle datoerne passer fint i år 2003, men i 2002 er de 1 dag bagud!

Synes godt om

jespernaur Nybegynder

06. februar 2003 - 23:58 #61

Har du sørget for at forbedre intelligensen af

aar = 2003 ' Her skal der opfindes noget mere intelligent for at finde det rigtige år

?

Synes godt om

riishoj Nybegynder

07. februar 2003 - 00:01 #62

Tusind tak for idag. Håber på at vi lige kan runde af i morgen. Jeg har selvfølgelig ikke glemt at du skal have point, og gerne flere end de 60, da jeg nok føler, at jeg har presset citron lige rigeligt! Jeg kontakter support nu og regner med at have et svar i morgen, da de plejer at være rimelig hurtige.

Mvh.riishoj

Synes godt om

riishoj Nybegynder

07. februar 2003 - 00:05 #63

Næ, det har jeg ikke. Jeg er bange for, at jeg ikke vil være i stand til det. (Er lidt novice, du ved)

Synes godt om

riishoj Nybegynder

07. februar 2003 - 15:13 #64

Jeg har løst datoproblemet. Da min server kører med Linux og chili.asp kan man ikke bruge sessionLCID=1030.
<%Session.LCID = &H0407%> giver tysk datoformat, men det er jo det samme som det danske. Gad vide hvad den danske kode er? Har du set det her før?

Synes godt om

jespernaur Nybegynder

07. februar 2003 - 17:18 #65

Her er en tabel over LCID'er - du vil opdage Danmark = 0x406 (=1030) og Tyskland = 0x407 (=1031). Hvorfor Tyskland virker og Danmark ikke gør kan jeg ikke svare på!

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/directx9_c/directx/htm/workingwithlcidsscript.asp

Med hensyn til årstallet må du kunne gøre noget, der meget ligner det du gør med ugenummeret. Brug indeværende år, hvis det ikke eksisterer som URL-parameter, sørg for at få overført det som URL-parameter hvis der på den næste side skal vises noget andet end indeværende år.

Mvh
Jesper Naur

Synes godt om

riishoj Nybegynder

07. februar 2003 - 19:44 #66

Underligt at dk datoformat ikke virker, men så må det jo blive på tysk (keine Unterschied)! Jeg er gået helt død i det med årstallet, kan i hvert fald ikke producere noget som virker.

Synes godt om

jespernaur Nybegynder

07. februar 2003 - 21:18 #67

Jeg har nok ikke så meget tid i aften, men hvis du virkelig kører fast, kunne du vise noget af den kode, du har problemer med (det burde ikke være nødvendigt at vise det hele igen). Evt kan jeg se på det i morgen.

Synes godt om

riishoj Nybegynder

07. februar 2003 - 23:03 #68

Jeg har prøvet at lave blokeringer i skemaet som du foreslog, men jeg kan ikke f¨det til at virke. Er det helt galt, det jeg har lavet?

<%
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")

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>" & lektion & ". time</td>"

for dag = 1 to 5

strSQL = "SELECT dag,lektion FROM blokering WHERE reservation='test2' 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=red></td>"

Else

' generer data og HTML kode for (dag,lektion)
strSQL = "SELECT initialer,klasse FROM reserver WHERE reservation='test2' 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><A HREF='reserver_form_test.asp?uge=" & uge & "&dag=" & linkdag(dag) & "&lektion=" & lektion & "&reservation=test2'><img border=0 src='../images/greenball.gif' alt='Lokalet er ledigt'></td>"

Else

Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><img src='../images/redball.gif' alt='Lokalet er optaget'><img src='../images/blank2.gif'><A HREF='vis_reservation.asp?reservation=test2&lektion=" & lektion & "&dag=" & linkdag(dag) & "&uge=" & uge &"'>"&rs("initialer")&"</A></td>"

rs.MoveNext

End if
End if
next
Response.Write "</tr>"
next

Conn.Close
%>

Synes godt om

riishoj Nybegynder

08. februar 2003 - 00:02 #69

Med hensyn til årstallet, så er jeg virkelig helt blank. Jeg ved hvordan jeg får returneret året ved hjælp af Year(date), men det er jo ikke specielt intelligent, når jeg ikke kan udnytte det i en funktion, som beregner årstallet fremad og bagud.

Synes godt om

jespernaur Nybegynder

08. februar 2003 - 15:09 #70

Jeg kan få øje på 2 problemer i det du har vist:

For det første skal 'blokering' ikke have feltet 'uge' og derfor skal du heller ikke spørge på det i SQL-sætningen. Det der står i 'blokering' gælder for alle uger, og derfor har det ingen mening at have et 'uge' felt.

For det andet ser det for mig ud som om du tester på den 'modsatte' betingelse af hvad du ønsker - det kommer så til at medføre, at en lektion ser blokeret ud hvis den IKKE forekommer i 'blokering', og det var ikke meningen i henhold til min oprindelige ide.

Begge ting kan løses ved at rette (har jeg dog ikke testet - det kommer du til)

------------------------------------------------------
strSQL = "SELECT dag,lektion FROM blokering WHERE reservation='test2' 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=red></td>"

Else
------------------------------------------------------

til

------------------------------------------------------
strSQL = "SELECT dag,lektion FROM blokering WHERE reservation='test2' AND dag='" & SQLdag(dag) & "' AND lektion='" & lektion & "'"
set rs = Conn.Execute(strSQL)
if not (rs.EOF or rs.BOF) then
Response.Write"<td width=18% height=40 bgcolor=red></td>"

Else
------------------------------------------------------

Årstallet:

Du har nedenstående kodestump. Formålet er at opbygge den link, der skal føre brugeren til næste uge (der er en tilsvarende stump, der handler om foregående uge).

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"<td width=35% align=left valign=bottom><A class='speciel' HREF='test2.asp?uge=" & nuge & "'>Næste uge--></A></td>"

Det skal du have udvidet til også at omfatte en URL-parameter 'aar', sådan at HREF ser fx således ud:

HREF='test2.asp?uge=5&aar=2003

Dette muliggør, at du kan spørge på request.querystring("aar"), og hvis den findes, skal du bruge den, hvis ikke skal du bruge indeværende år. Så skal du udregne variablen 'naar', som skal tilføjes den link du er ved at generere. Her skal du tage højde for at addere 1, når du opdager, at næste uge faktisk også er i næste år.

Noget helt tilsvarende skal gøres omkring linken for foregående uge.

Den konkrete implementation overlader jeg som øvelse for den kvikke elev (!)

Mvh
Jesper Naur

Synes godt om

riishoj Nybegynder

08. februar 2003 - 17:08 #71

Den kvikke elev er i gang med at arbejde med sagen!!

Synes godt om

riishoj Nybegynder

08. februar 2003 - 17:53 #72

Jeg har prøvet med dine rettelser, men det virker desværre ikke. Får en fejlmedelse om for få parametre i linje 160, som er den første set rs = Conn.Execute(strSQL)

<%
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")

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>" & lektion & ". time</td>"

for dag = 1 to 5

strSQL = "SELECT dag,lektion FROM blokering WHERE reservation='test2' AND dag='" & SQLdag(dag) & "' AND lektion='" & lektion & "'"
set rs = Conn.Execute(strSQL)
if not rs.EOF or rs.BOF then
Response.write"<td width=18% height=40 bgcolor=red></td>"

Else
' generer data og HTML kode for (dag,lektion)
strSQL = "SELECT initialer,klasse FROM reserver WHERE reservation='test2' 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><A HREF='reserver_form_test.asp?uge=" & uge & "&dag=" & linkdag(dag) & "&lektion=" & lektion & "&reservation=test2'><img border=0 src='../images/greenball.gif' alt='Lokalet er ledigt'></td>"

Else

Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><img src='../images/redball.gif' alt='Lokalet er optaget'><img src='../images/blank2.gif'><A HREF='vis_reservation.asp?reservation=test2&lektion=" & lektion & "&dag=" & linkdag(dag) & "&uge=" & uge &"'>"&rs("initialer")&"</A></td>"

rs.MoveNext

End if
End if
next
Response.Write "</tr>"
next

Conn.Close
%>

Synes godt om

riishoj Nybegynder

08. februar 2003 - 23:01 #73

Jeg har fået blokeringen til at virke. I tabellen 'blokering' skal der også være et felt 'reservation', så blokeringen laves ved skrive i tabellen hvilken dag, lektion og reservation (lokale), der skal blokeres.
Nu mangler jeg kun at få styr på årstallet. Har endnu ikke prøvet dine sidste forslag. Prøver i morgen, så jeg håber at du kigger forbi.
Mvh. riishoj

Synes godt om

riishoj Nybegynder

09. februar 2003 - 16:58 #74

Du har godt nok sat mig på en prøve. Har er mit sikkert kluntede forsøg på at frembringe noget brugbart til at gå baglæns i tid. Men som du sikkert sagtens kan se, så virker det ikke, men jeg vil spørge om det er noget i den stil du mener?

If request.querystring("uge") <> "" Then
uge = request.querystring("uge")
If request.querystring("aar") <> "" Then
aar = request.querystring("aar")
Else
uge = DatePart("ww",date())
aar = Year(Date)
End If
fuge = uge - 1
faar = aar - 1
If fuge < 1 then
fuge = 52 AND faar
End If

Response.Write"<td width=20% align=left valign=bottom><A class='speciel' HREF='fysik.asp?uge=" & fuge & " and aar=" & aar & "'><--Forrige uge </A></td>"
%>

Synes godt om

jespernaur Nybegynder

09. februar 2003 - 18:53 #75

Du har blandet tingene noget sammen, og dermed nok forvirret dig selv mere end godt er. Her er mit forsøg på at rede trådene ud. Kig grundigt på forskellene mellem dit og mit:

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><A class='speciel' HREF='fysik.asp?uge=" & fuge & "&aar=" & faar & "'><--Forrige uge </A></td>"
%>

Mvh
Jesper Naur

Synes godt om

riishoj Nybegynder

09. februar 2003 - 19:28 #76

Du har ret i, at jeg har fået blandet tingene noget sammen, men jeg kan godt se hvad du mener. Den eneste trøst er, at hvis det lykkes at lave funktionen, som går bagud, så tror jeg også, at jeg kan finde ud af at lave den, som peger fremad. Skal lige køre min dreng på efterskole, så jeg får først prøvet din løsning om et par timer.
Mvh. riishoj

Synes godt om

riishoj Nybegynder

09. februar 2003 - 22:23 #77

Jeg får fejlen 'End' var ventet i linje 213. Det er jo et godt stykke nede i scriptet, og der har jeg jo ikke ændret noget. Smider lige det hele op.

<%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">

 
<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">Test</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())

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><A class='speciel' HREF='fysik.asp?uge=" & fuge & "&aar=" & faar & "'><--Forrige uge </A></td>"
%>

<td width="20%" align="left">Uge&nbsp


<%
'Session.LCID = 1030

If Request.Querystring("uge") <> "" Then
uge = Request.Querystring("uge")
Else
uge = DatePart("ww",date())
End If

Response.Write ""
Response.Write uge
%>
</td>
<%

If request.querystring("uge") <> "" Then
uge = request.querystring("uge")
Else
uge = DatePart("ww",date())

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><A class='speciel' HREF='fysik.asp?uge=" & nuge & "&aar=" & naar & "'>Næste uge--></A></td>"
%>

</tr>
</table>

</td>
</tr>

<tr>
<td width="8%" bgcolor="#669999"> </td>
<td width="18%" bgcolor="#669999">
Mandag 
<% Response.Write FormatDateTime(UgeTilDato(aar, uge, 1), vbShortDate) %></td>
<td width="18%" bgcolor="#669999">
Tirsdag 
<% Response.Write FormatDateTime(UgeTilDato(aar, uge, 2), vbShortDate) %></td>
<td width="19%" bgcolor="#669999">
Onsdag 
<% Response.Write FormatDateTime(UgeTilDato(aar, uge, 3), vbShortDate) %></td>
<td width="19%" bgcolor="#669999">
Torsdag 

<% Response.Write FormatDateTime(UgeTilDato(aar, uge, 4), vbShortDate) %></td>
<td width="19%" bgcolor="#669999">
Fredag 

<% Response.Write FormatDateTime(UgeTilDato(aar, uge, 5), vbShortDate) %></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")

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>" & lektion & ". time</td>"

for dag = 1 to 5

strSQL = "SELECT dag,lektion FROM blokering WHERE reservation='fysik' AND dag='" & SQLdag(dag) & "' AND lektion='" & lektion & "'"
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></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><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'></td>"

Else

Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><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></td>"

rs.MoveNext

End if
End if
next
Response.Write "</tr>"
next

Conn.Close
%>
</table>
<table>
<tr>
<%
Response.Write"<td align=center><A class='speciel2' HREF='reserver_form2.asp'>Reserver anden uge</A></td>"
%>
</tr>
</table>
<table>
<tr>
<%
Response.Write"<td align=center><A class='speciel2' HREF='../index.htm'>Tilbage til forsiden</A></td>"
%>
</tr>
</table>
</body>
</html>

Synes godt om

jespernaur Nybegynder

09. februar 2003 - 22:46 #78

I linie 45 og i linie 86 har du 2 'if' sætninger, der ikke afsluttes korrekt, du mangler i begge tilfælde End If.

Synes godt om

riishoj Nybegynder

09. februar 2003 - 23:03 #79

Fint, nu passer datoerne, men jeg får jo de samme reservationer i f.eks. uge 7 2002 og uge 7 2002. Jeg skal vel have lavet et felt i db'en så årstallet også kan sættes ind.
Hvad er det så lige jeg skal have ændret her

lektion = Request.Querystring("lektion")
dag = Request.Querystring("dag")
reservation = Request.Querystring("reservation")

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>" & lektion & ". time</td>"

for dag = 1 to 5

strSQL = "SELECT dag,lektion FROM blokering WHERE reservation='fysik' AND dag='" & SQLdag(dag) & "' AND lektion='" & lektion & "'"
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></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><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'></td>"

Else

Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><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></td>"

Synes godt om

jespernaur Nybegynder

09. februar 2003 - 23:22 #80

Jeg forstår ikke helt dit spørgsmål: "jeg får jo de samme reservationer i f.eks. uge 7 2002 og uge 7 2002" - selvfølgelig gør du det med samme uge, samme år!

Jeg kan dog godt lidt gætte hvad det i virkeligheden er du er ude efter: Separat 'blokering' for hvert årstal som du antyder. Det dur dog ikke med årstal, da du flere gange har nævnt ordet 'skoleår', et sådant strækker sig (så vidt jeg ved stadig) over 2 på hinanden følgende år. Desuden: Du er ved at bevæge dig efterhånden temmelig langt ud over kanten af det oprindelige spørgsmål (omregning fra ugenummer til datoen på de i ugen indgående dage) - jeg synes du må se at få afsluttet dette her, og jeg vil her mene at du har fået hjælp til MEGET mere end du oprindelig spurgte om.

Mvh
Jesper Naur

Synes godt om

riishoj Nybegynder

09. februar 2003 - 23:23 #81

Har ikke testet dette her, men er det mon sådan?

'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 & "' AND aar='" & aar &"'"
set rs = Conn.Execute(strSQL)
if rs.EOF or rs.BOF then
Response.Write"<td width=18% height=40 bgcolor=#FFFFFF><A HREF='reserver_form_test.asp?uge=" & uge & "&dag=" & linkdag(dag) & "&lektion=" & lektion & "&reservation=fysik' &aar=" & aar & "'><img border=0 src='../images/greenball.gif' alt='Lokalet er ledigt'></td>"

Synes godt om

riishoj Nybegynder

09. februar 2003 - 23:34 #82

Du har fuldstændig ret. Som jeg tidligere har skrevet, så har jeg presset citronen temmelig hårdt, så det er fuldt forståeligt, at du gerne vil slutte. Jeg synes også, at du skal have flere end de 60 point, så jeg opretter et spørgsmål med ekstra 60 point til dig. Jeg havde ikke i denne sene stund lige tænkt over det med skoleåret ikke følger kalenderåret, så hvis du kan give mig et hint om at dette kan løses/er umuligt, så vil jeg blive glad. Tusind tak for din store indsats og tålmodighed.
Mvh. riishoj

Synes godt om

riishoj Nybegynder

09. februar 2003 - 23:37 #83

Der skulle naturligvis have stået uge 7 2002 og uge 7 2003. Ser det først nu, men det havde du jo gættet.

Synes godt om

jespernaur Nybegynder

10. februar 2003 - 17:16 #84

Selvfølgelig kan det laves - endda forholdsvis enkelt:

'blokering' skal have 2 nye felter af type Dato: 'fgyldig' og 'sgyldig' for hhv. første og sidste gyldighedsdag. Så må du kunne tilføje ekstra betingelser på SQL-sætningen for 'blokering' for at opnå, at du kun får udleveret en række, hvor datoen for den lektion du er ved at vise, ligger inden for gyldighedsområdet.

Synes godt om

riishoj Nybegynder

10. februar 2003 - 17:42 #85

For at få det helt på det rene. Jeg er meget interesseret i at få dette "projekt" færdigt. Jeg har 2 hængepartier. 1. Den datoafhængige blokering og 2. At få lavet mit skema med 4 reservationer om efter din opskrift med den reducerede kode. Derfor vil jeg høre, om du vil være med til at "køre" det færdigt. Jeg kan jo kun belønne dig med point, men det vil ikke være noget problem fra min side, sålænge jeg kan overholde Ekspertens regler. Alternativt må jeg jo oprette 2 nye spørgsmål, hvis (når) jeg får problemer, men det er jo altid nemmere at fortsætte med en, som er inde i tankegangen.
Hvis du ikke har lyst, så er der selvfølgelig ingen bad feelings fra min side, da jeg er ganske enig i, at du allerede har hjulpet meget.

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Persits.Upload Af bsn i ASP	9	17/09/202611:37	21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS