Kalender: tilføj ugenr og en db mere
Jeg har følgende script til en kalender som virker fint...<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN">
<HTML>
<HEAD>
<TITLE>Kalender</TITLE>
<meta name="Generator" content="Stone's WebWriter 4">
</HEAD>
<BODY>
<% sted = Request("sted")
DBQ=Server.MapPath("db.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 cellspacing="0" cellpadding="0" border="1" width="700" align="center">
<tr>
<td colspan="7" bgcolor="#FFF000"><center><font face="arial" size="6"><%=strMonth%> <%=intYear%></font></center></td>
</tr>
<tr>
<td align="center" bgcolor="#FF0000" width="100"><font face="arial" size="3"><b>Man</b></font></td>
<td align="center" bgcolor="#FF0000" width="100"><font face="arial" size="3"><b>Tir</b></font></td>
<td align="center" bgcolor="#FF0000" width="100"><font face="arial" size="3"><b>Ons</b></font></td>
<td align="center" bgcolor="#FF0000" width="100"><font face="arial" size="3"><b>Tor</b></font></td>
<td align="center" bgcolor="#FF0000" width="100"><font face="arial" size="3"><b>Fre</b></font></td>
<td align="center" bgcolor="#FF0000" width="100"><font face="arial" size="3"><b>Lør</b></font></td>
<td align="center" bgcolor="#FF0000" width="100"><font face="arial" size="3"><b>Søn</b></font></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
dato2 = intYear & "-" & Month(dtmCurDate) & "-" & Day(dtmCurDate)
Set rs=oConn.Execute("SELECT * FROM kalender WHERE CDate(fra) = #" & dato2 & "# OR (CDate(fra) <= #" & dato2 & "# AND til is not null and CDate(til) >= #" & dato2 & "#);" )
If dtmCurDate = dtmToday Then
'dagsdato med arrangementer
If Not rs.EoF Then
Response.Write "<td height=""100"" bgcolor=""E6E6E6"" valign=""top""><b>" & Day(dtmCurDate) & "</b></td>"
Else
'dagsdato uden arrangementer
Response.Write "<td height=""100"" bgcolor=""E6E6E6"" valign=""top""><b>" & Day(dtmCurDate) & "</b></td>"
End If
Else
If Not rs.EoF Then
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.Mappath("db.mdb")
Conn.Open DSN
dato2 = intYear & "-" & Month(dtmCurDate) & "-" & Day(dtmCurDate)
strSQL = "SELECT * FROM kalender WHERE CDate(fra) = #" & dato2 & "# OR (CDate(fra) <= #" & dato2 & "# AND til is not null and CDate(til) >= #" & dato2 & "#);"
Set rs_info = Conn.Execute(strSQL)
Response.Write "<td height=""100"" valign=""top""><b>" & Day(dtmCurDate) & "</b><br>"
Do until rs_info.eof or rs_info.bof
response.write rs_info("titel") & "<br>"
rs_info.MoveNext
Loop
Set rs_info = Nothing
response.write "</td>"
Else
Response.Write "<td height=""100"" valign=""top"">" & Day(dtmCurDate) & "</td>"
End If
End If
blnLast = False
Else
Response.Write "<td height=""100"" valign=""top"">-</td>"
blnLast = True
End If
Else
Response.Write "<td height=""100"" valign=""top"">-</td>"
blnLast = True
End if
Next
End If
Next
Response.Write "</span></td></tr>" %>
<tr bgcolor="#FF0000">
<td><a class="lille_bla"
href="kalender.asp?sted=<%=sted%>&date=<%=DateAdd("m",-1,dtmFirstDate)%>"><b><<</b></a></td>
<td colspan="5"><center><span class="lille_bla">
<a class="lille_bla" href="kalender.asp?sted=<%=sted%>&date=01-01-<%=Year(dtmCurDate)%>">1</a>
<a class="lille_bla" href="kalender.asp?sted=<%=sted%>&date=01-02-<%=Year(dtmCurDate)%>">2</a>
<a class="lille_bla" href="kalender.asp?sted=<%=sted%>&date=01-03-<%=Year(dtmCurDate)%>">3</a>
<a class="lille_bla" href="kalender.asp?sted=<%=sted%>&date=01-04-<%=Year(dtmCurDate)%>">4</a>
<a class="lille_bla" href="kalender.asp?sted=<%=sted%>&date=01-05-<%=Year(dtmCurDate)%>">5</a>
<a class="lille_bla" href="kalender.asp?sted=<%=sted%>&date=01-06-<%=Year(dtmCurDate)%>">6</a>
<a class="lille_bla" href="kalender.asp?sted=<%=sted%>&date=01-07-<%=Year(dtmCurDate)%>">7</a>
<a class="lille_bla" href="kalender.asp?sted=<%=sted%>&date=01-08-<%=Year(dtmCurDate)%>">8</a>
<a class="lille_bla" href="kalender.asp?sted=<%=sted%>&date=01-09-<%=Year(dtmCurDate)%>">9</a>
<a class="lille_bla" href="kalender.asp?sted=<%=sted%>&date=01-10-<%=Year(dtmCurDate)%>">10</a>
<a class="lille_bla" href="kalender.asp?sted=<%=sted%>&date=01-11-<%=Year(dtmCurDate)%>">11</a>
<a class="lille_bla" href="kalender.asp?sted=<%=sted%>&date=01-12-<%=Year(dtmCurDate)%>">12</a>
</span></center></td>
<td align="right"><a class="lille_bla"
href="kalender.asp?sted=<%=sted%>&date=<%=DateAdd("m",1,dtmFirstDate)%>"><b>>></b></a></td>
</tr></table>
</BODY>
</HTML>
Jeg vil dog gerne have fortaget et par ændringer i scriptet...
Jeg vil gerne have tilføjet ugenr, som så vises i den første kolonne til venstre fx:
ugenr man tir
43 1 2
44 8 9 osv. osv.
Kalenderen er også koblet sammen med en database, hvor den henter arrangementer ind og viser i db'en... Jeg vil godt have tilføjet en tabel mere... altså en fra samme db fil, men en anden tabel, sådan så kalenderen henter arrangementer og viser både fra fx kalender og kalender2
