Har prøvet at ændre lidt i koden og får nu så den laver samme fejl som før men nu på alle looalerne. Her er hele kode:
<%
if request.querystring("Dag") <> "" then
sQDag = request.querystring("Dag")
sQMdr = request.querystring("Mdr")
sQAar = request.querystring("År")
sQLokale = Session("Lokale")
else
sQDag = Day(Date)
sQMdr = Month(Date)
sQAar = Year(Date)
sQLokale = Session("Lokale")
end if
Session("datobestil") = sQDag & "-" & sQMdr & "-" & sQAar
arrMonth = Array("januar", "febuar", "marts", "april", "maj", "juni", "juli", "august", "september", "oktober", "november", "december")
arrDay = Array("Søndag", "Mandag", "Tirsdag", "Onsdag", "Torsdag", "Fredag", "Lørdag")
datoDag = sQDag
Mdr = sQMdr
datoStr = datoDag & "-" & Mdr & "-" & sQAar
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 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 session("Id") = 3 Then
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 rs("lokalenr") <> 2 And 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
SkrivLinie strTid, strKommentar
' Tiden i næste linie
MCnt = MCnt + 30
if (MCnt = 60) then
MCnt = 0
TCnt = TCnt + 1
End If
End If
%>
<%
If session("Id") <> 3 Then
if not rs.EOF then
start = rs("tid")
RTime = Hour(start) * 100 + Minute(start) ' Tiden for næste aftale
else
RTime = 0
end if
Response.write TTime & "<br>"
Response.write RTime & "<br><br>"
If TTime = RTime And session("ID") = 4 Then
strKommentar = "Et eller andet"
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
SkrivLinie strTid, strKommentar
' Tiden i næste linie
MCnt = MCnt + 30
if (MCnt = 60) then
MCnt = 0
TCnt = TCnt + 1
end if
end if
%>
<%
End If
End If
Next
Response.Write("</table>")
%>
