Db og session
Jeg har følgende kode:<%
Set Conn4 = Server.CreateObject("ADODB.Connection")
Set Rs4 = Server.CreateObject("ADODB.Recordset")
Conn4.Open "DBQ=" & Server.Mappath("../../db/Booking.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};Password=1234;"
'Find Bookninger for valgte dato
dato = sQMdr & "-" & sQDag & "-" & sQAar ' Format til DB MM-DD-YYYY
SQL4 = "SELECT lokalenr, tid, firma, initialer, mail, kommentar FROM booking WHERE dato = #" & dato & "#"
rs4.Open SQL4, Conn4,1,3
Do while not rs4.eof
Set Conn5 = Server.CreateObject("ADODB.Connection")
Set Rs5 = Server.CreateObject("ADODB.Recordset")
Conn5.Open "DBQ=" & Server.Mappath("../../db/Booking.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};Password=1234;"
SQL5 = "SELECT lokalenr, tid, firma, initialer, mail, kommentar FROM booking WHERE tid = #" & rs4("tid") & "#"
rs5.Open SQL5, Conn5,1,3
Do while not rs5.eof
session("" & formatdatetime(rs5("tid"),4)) = formatdatetime(rs5("tid"),4)
rs5.MoveNext
loop
rs4.MoveNext
loop
response.write session("13:30") & "<br>"
response.write session("14:00") & "<br>"
response.write session("14:30") & "<br>"
response.write session("15:00") & "<br>"
response.write session("15:30") & "<br>"
response.write session("16:00") & "<br>"
response.write session("16:30") & "<br>"
response.write session("17:00") & "<br>"
response.write session("17:30") & "<br>"
%>
Jeg ved at der i min database er en værdi hvor der på samme dato er en værdi 15:00 samt 15:30. Overstående kode skulle altså gerne skrive følgende ud: 15:00 samt 15:30. Men jeg får udskrevet følgende: 15:00 samt 16:30. Hvad er der lige galt?
