Stopper med at udskrive værdierne
Hvad er der lige galt med min kode? Den virker fint hvis jeg ikke har denne stump kode med:If TTime = 1700 Then
strKommentar = "Seminarrumet og den anden halvdel af kantinen benyttes"
Else
Hvis den kode er med så stopper den med at udskrive de resterende reservationer når den når ned til tiden 1700. Her er hele min kode:
<%
datoStreng = arrDay(WeekDay(datoStr)-1) & " den " & datoDag & ". " & arrMonth(Mdr-1) & " " & Year(datoStr) & " - " & sQLokale
Response.write datoStreng & "</b></font>" ' Afslut overskrift
sub SkrivLinie(strTid, strKommentar)
Response.Write("<tr>")
Response.Write("<td bgcolor='#608ec6' width='26' height='19'> </td>")
Response.Write("<td width='10' nowrap bgcolor='#EFEEDE' height='19'> </td>")
Response.Write("<td width='96' nowrap bgcolor='#EFEEDE' height='19'>" & strTid & "</td>")
Response.Write("<td width='415' nowrap bgcolor='#EFEEDE' height='19'>" & strKommentar & "</td>")
Response.Write("</tr>")
Response.Write("<tr>")
Response.Write("<td width='20' colspan='3' height='1'></td>")
Response.Write("</tr>")
end sub
Set Con = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("../../db/Booking.mdb")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)};Password=1234 ;" & DBPath
'Find Bookninger for valgte dato
dato = sQMdr & "-" & sQDag & "-" & sQAar ' Format til DB MM-DD-YYYY
SQL = "SELECT lokalenr, tid, firma, initialer, mail, kommentar FROM booking WHERE dato = #" & dato & "#"
set rs = con.execute (SQL)
dato = sQMdr & "-" & sQDag & "-" & sQAar ' Format til DB MM-DD-YYYY
booWeekend = Weekday(datoStr) = 1 or Weekday(datoStr) = 7 'Er det lørdag/søndag
SQL = "SELECT lokalenr, tid, firma, initialer, kommentar FROM booking WHERE dato = #" & dato & "#"
%>
<%
function CStr2(Value)
if Value < 10 then
CStr2 = "0" & CStr(Value)
else
CStr2 = CStr(Value)
end if
end function
TCnt = 7 ' Starttid
MCnt = 0 ' Startminutter
for Cnt = 1 to 33 ' Antal linier
strtid = CStr2(TCnt) & ":" & CStr2(MCnt)
TTime = TCnt * 100 + MCnt ' Tiden der skal udskrives nu
if not rs.EOF then
start = rs("tid")
RTime = Hour(start) * 100 + Minute(start) ' Tiden for næste aftale
else
RTime = 0
end if
If TTime = 1700 Then
strKommentar = "Seminarrumet og den anden halvdel af kantinen benyttes"
Else
If TTime = RTime And session("ID") = 4 And session("lokalenr") = 2 Then
strTid = "<a href=""bestil.asp?Lokale=" & sQLokale & "&Dag=" & sQDag & "&Mdr=" & sQMdr & "&ÅR=" & sQAar & "&Tid=" & strTid & """ style=""text-decoration: none"">" & strTid & "</a>"
strKommentar = "Seminarrum benyttes:" & rs("kommentar") & " (<a href=""mailto:" & rs("mail") & """ class=""maillink"">" & rs("initialer") & "</a>, " & rs("firma") & ")"
rs.movenext
Else
If TTime = RTime And session("ID") = 2 And session("lokalenr") = 4 Then
strTid = "<a href=""bestil.asp?Lokale=" & sQLokale & "&Dag=" & sQDag & "&Mdr=" & sQMdr & "&ÅR=" & sQAar & "&Tid=" & strTid & """ style=""text-decoration: none"">" & strTid & "</a>"
strKommentar = "Halvdene af kantinen benyttes:" & rs("kommentar") & " (<a href=""mailto:" & rs("mail") & """ class=""maillink"">" & rs("initialer") & "</a>, " & rs("firma") & ")"
rs.movenext
Else
If TTime = RTime Then
strKommentar = rs("kommentar") & " (<a href=""mailto:" & rs("mail") & """ class=""maillink"">" & rs("initialer") & "</a>, " & rs("firma") & ")"
rs.movenext
Else
' Check for frokostpause
If session("Id") <> 2 Then
if not booWeekend and (TTime >= 1130 and TTime <= 1300) then
strKommentar = "Kantinen serverer frokost"
else
strTid = "<a href=""bestil.asp?Lokale=" & sQLokale & "&Dag=" & sQDag & "&Mdr=" & sQMdr & "&ÅR=" & sQAar & "&Tid=" & strTid & """ style=""text-decoration: none"">" & strTid & "</a>"
strKommentar = " "
End If
else
strTid = "<a href=""bestil.asp?Lokale=" & sQLokale & "&Dag=" & sQDag & "&Mdr=" & sQMdr & "&ÅR=" & sQAar & "&Tid=" & strTid & """ style=""text-decoration: none"">" & strTid & "</a>"
strKommentar = " "
End If
End If
End If
End If
End if
SkrivLinie strTid, strKommentar
' Tiden i næste linie
MCnt = MCnt + 30
if (MCnt = 60) then
MCnt = 0
TCnt = TCnt + 1
end if
%>
