kalender -events som fed
håber der er nogen der kan hjælpe mighar et kalenderscrtipt jeg har fundet, som jeg gerne vil have til at hente oplysninger fra en db og hvis datoerne findes i db så markere som fed i kalender, håber i forstår.
og afhængig af typen lave grøn eller blå!
min db indeholder en dato_fra og en dato_til og en type som enten er leje eller lån. alle felterne er text felter og datoerne er gemt så de ser sådan ud når jeg henter dem: 18-10-2003.
kalender ser sådan ud:
<html>
<head>
<title>Vores Kalender</title>
</head>
<body bgcolor="#FFFFFF" text="#000000" link="#C0C0C0" vlink="#C0C0C0" alink="#C0C0C0">
<%
dtmDate = Request.QueryString("date")
dtmToday = Date
vaerdi=0
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="2" border="0" valign="top"
style="border: 1px solid rgb(0,0,0)" align="left">
<tr bgcolor="#006699">
<td colspan="7" align="center" valign="middle"><font face="Verdana"
size="2" color="#ffffff"><strong><%=strMonth%> <%=intYear%></strong></font></td>
</tr>
<tr>
<td align="center"><b><font face="verdana" size="2">Man</font></b></td>
<td align="center"><b><font face="verdana" size="2">Tir</font></b></td>
<td align="center"><b><font face="verdana" size="2">Ons</font></b></td>
<td align="center"><b><font face="verdana" size="2">Tor</font></b></td>
<td align="center"><b><font face="verdana" size="2">Fre</font></b></td>
<td align="center"><b><font face="verdana" size="2">Lør</font></b></td>
<td align="center"><b><font face="verdana" size="2">Søn</font></b></td>
</tr>
<%
For y = 1 to 6
If blnLast <> True Then
Response.Write "<tr>"
For x = 1 to 7
Response.Write "<td align=center><font face=verdana size=2>"
intLoopDay = intLoopDay + 1
If intLoopDay >= intFirstDay Then
dtmCurDate = DateAdd("d", intLoopDay-intFirstDay, dtmFirstDate)
If Month(dtmCurDate) = Month(dtmFirstDate) Then
If dtmCurDate = dtmToday Then
vaerdi= vaerdi + 1
Response.Write "<a href=resdato.asp?value="& dtmCurDate & "' style='text-decoration:none; color:red'><strong>" & Day(dtmCurDate) & "</strong></a>"
else
vaerdi= vaerdi + 1
Response.Write "<a href='resdato.asp?value="& dtmCurDate & "' style='text-decoration:none; color:black'>" & Day(dtmCurDate) & "</a>"
Response.Write "</td>"
blnLast = False
End If
Else
Response.Write "</td>"
blnLast = True
End If
Else
Response.Write "</td>"
blnLast = True
End if
Next
End If
Next
Response.Write "</font></td></tr>"
'----------------------------------------
Conn.Close
Set Conn = Nothing
%>
<tr>
<td bgcolor="#006699" colspan="3"><font face="verdana" size="2"><b><a href="kalender.asp?date=<%=DateAdd("m",-1,dtmFirstDate)%>">Forrige</a></b></font></td>
<td bgcolor="#006699"> </td>
<td bgcolor="#006699" colspan="3" align="right"><font face="verdana" size="2"><b><a href="kalender.asp?date=<%=DateAdd("m",1,dtmFirstDate)%>">Næste</a></b></font></td>
</tr>
</table>
</body></html>
