Booking med kalender og tidspunkter pr. dag.
Jeg håber nogen kan hjælpe mig videre med dette. Jeg sidder lidt fast i det - og er ikke nogen programmeringshaj.Jeg har 1 asp-side, booking.asp, som indeholder en kalender og en tabel med tidspunkter:
//KALENDER
<%
DBQ=Server.MapPath("../kalender.mdb")
Set oConn = createObject("ADODB.Connection")
oConn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&DBQ
dtmDate = Request.QueryString("date")
dtmToday = Date
If dtmDate = "" Then
dtmDate = Date
Else
dtmDate = CDate(dtmDate)
End if
intYear = Year(dtmDate)
strMonth = MonthName(Month(dtmDate))
intDayOfMonth = Day(dtmDate)
dtmFirstDate = DateAdd("d", (-intDayOfMonth)+1, dtmDate)
intFirstDay = Weekday(dtmFirstDate, vbMonday)
%>
<table border="0" cellpadding="2" cellspacing="0" bgcolor="#ffffff" class="booking" valign="top" style="border:1px solid #999999">
<!--DWLayoutTable-->
<tr>
<td colspan="7" align="center" valign="middle" bgcolor="#999999" class="header">
<%=strMonth%> <%=intYear%></td>
</tr>
<tr>
<td align="center" bgcolor="#006699"><span class="style3">Man</span></td>
<td align="center" bgcolor="#006699"><span class="style3">Tir</span></td>
<td align="center" bgcolor="#006699"><span class="style3">Ons</span></td>
<td width="22" align="center" bgcolor="#006699"><span class="style3">Tor</span></td>
<td align="center" bgcolor="#006699"><span class="style3">Fre</span></td>
<td align="center" bgcolor="#006699"><span class="style3">Lør</span></td>
<td align="center" bgcolor="#006699"><span class="style3">Søn</span></td>
</tr>
<%
For y = 1 to 6
If blnLast <> True Then
Response.Write "<tr>"
For x = 1 to 7
intLoopDay = intLoopDay + 1
If intLoopDay >= intFirstDay Then
dtmCurDate = DateAdd("d", intLoopDay-intFirstDay, dtmFirstDate)
If Month(dtmCurDate) = Month(dtmFirstDate) Then
Set foddagbarn=oConn.Execute("Select * from kalender where dag="&day(dtmCurDate)&" and mdr="&month(dtmCurDate))
If dtmCurDate = dtmToday Then
If Not foddagbarn.EoF Then
Response.Write "<td align=center bgcolor=#3399CC><a href=reservationer.asp?dato="&dtmCurDate&"><font face=verdana size=2 color=#ffffff><strong>" & Day(dtmCurDate) & "</strong></font></a></td>"
Else
Response.Write "<td align=center bgcolor=#3399CC><a href=reservationer.asp?dato="&dtmCurDate&"><font face=verdana size=2 color=#ffffff><strong>" & Day(dtmCurDate) & "</strong></font></a></td>"
End If
Else
If Not foddagbarn.EoF Then
Response.Write "<td align=center bgcolor=#CC3333><a href=reservationer.asp?dato="&dtmCurDate&"><strong>" & Day(dtmCurDate) & "</strong></a></td>"
Else
Response.Write "<td align=center><a href=reservationer.asp?dato="&dtmCurDate&"><strong>" & Day(dtmCurDate) & "</strong></a></td>"
End If
End If
blnLast = False
Else
Response.Write "<td align=center>-</td>"
blnLast = True
End If
Else
Response.Write "<td align=center>-</td>"
blnLast = True
End if
Next
End If
Next
Response.Write "</font></td></tr>"
%>
<tr >
<td colspan="3" bgcolor="#cccccc"><a
href="booking2.asp?date=<%=DateAdd("m",-1,dtmFirstDate)%>">Forrige</a></td>
<td valign="top" bgcolor="#cccccc"><!--DWLayoutEmptyCell--> </td>
<td bgcolor="#cccccc" colspan="3" align="right"><a
href="booking2.asp?date=<%=DateAdd("m",1,dtmFirstDate)%>">Næste</a></td>
</tr>
</table>
//KALENDER SLUT
Herefter vil jeg gerne have at tabellen med booking-tidspunkterne på dagen, man vælger i kalenderen, retter sig efter den valgte dato (som indtil nu kun er på HTML siden). Tidspunkterne fra databasen skal fortælle brugeren, hvilke tider der er ledige og er booket. Jeg har lavet 3 små grafikker, som skal illustrere mulighederne - Fri tid, Er booket, kun pr. telefon osv.
Det er altså lige dette led, som skal være aktivt inden brugeren bliver dirigeret videre til reservationer.asp - som indeholder en indtastningsformular for brugeren.
Hvordan bygger jeg databasen op for booking-tidspunkter så den kan spille sammen med kalenderen og hvad gør jeg med ASP-koden?
Desuden hvordan gør jeg lørdage, søndage og helligdage ikke klikbare i kalenderen?
Glæder mig til at høre fra et geni derude.
