Løkker og array
Hej,Jeg er ved at lave et booking system!
En visuel kalenderen skal vise med forskellige farver om et objekt er booket:
1.Formiddag
2.Eftermiddag
3.Hele dagen
koden:
'\\ connection til db
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("data/kalender.mdb")
Conn.Open DSN
strSQL1 = "SELECT strDato,strBooking FROM tbl_kalender Where Month(strDato)=" & MyMonth & " Order by strDato"
Set rs = Conn.Execute(strSQL1)
'\\ for at undgå evt. fejl, laver vi en if sætning,
'\\ og smider vores records ind i vores array
if not rs.eof then
arrRecords = rs.getrows()
end if
'\\ nu er data hentet ud, så nu kan vi roligt lukke vores connection igen
rs.close
set rs = nothing
'Luk database
Conn.Close
Set Conn = Nothing
'---
'Bygger vores kalender
For Row = 0 to 5
For Col = 0 to 6
If Row = 0 and Col < FirstDay then
response.write "<td> </td>"
elseif CurrentDay > LastDay(MyMonth, MyYear) then
response.write "<td> </td>"
else
for i=0 to ubound(arrRecords,1)
if CurrentDay = Day(arrRecords(0,i)) then
MyVar = arrRecords(1,i)
Select Case MyVar
Case 1
strFarve = "#000099"
Case 2
strFarve = "#009900"
Case 3
strFarve = "#990000"
Case Else
strFarve = "#78B722"
End Select
end if
next
response.write "<td bgcolor='" & strFarve & "' align='center'><a href = 'bookingform.asp?day=" & CurrentDay & "&month=" & MyMonth & "&year=" & MyYear & "'>" & CurrentDay & "</a></td>"
CurrentDay = CurrentDay + 1
End If
Next
response.write "</tr>"
Next
response.write "</table>"
