Kalender / database
Hej eksperterJeg har leget lidt med denne kalender-kode, men mangler at få den til at arbejde sammen med min database. Udover forbindelsesfilen til databasen, så mangler jeg at få "placeret":
SQL = "Select * from Aktivitetskalender where Dato='" & XXXXX & "' ORDER BY Id"
Set rs = Conn.Execute(SQL)
og samtidig få det lavet sådan, at datoen i kalenderen ikke er linkbar, hvis databaseforespørgslen er tom, mens et aktivt link til ...viskalender.asp, hvis databaseforespørgslen giver resultat. Jeg bruger mysql og datatypen "Date", hvilket jo giver xxxx-xx-xx i stedet for xx-xx-xxxx, som bruges i kalenderen.
Virkelig på forhånd tak.
<% Session.LCID = 1030 %>
<html>
<head>
<title>Kalender</title>
</head>
<body bgcolor="#FFFFFF" text="#000000" link="#808080" vlink="#808080" alink="#808080">
<%
dtmDate = Request("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)
%>
<p align="center"><font face="verdana" size="4">Eksempel på en kalender<br>(fra Dennis Knappe og modificeret af NoW112)</font></p>
<div align="center"><center>
<table cellspacing="0" cellpadding="2" border="0" valign="top"
style="border: 1px solid rgb(0,0,0)">
<tr>
<td colspan="7" align="center" valign="middle" bgcolor="#000000"><font face="Verdana"
size="2" color="#ffffff"><strong><%=UCase(strMonth)%> <%=intYear%></strong></font></td>
</tr>
<tr>
<td align="center" width="30" bordercolor="#000000"><font face="verdana" size="2">Man</font></td>
<td align="center" width="30" bordercolor="#000000"><font face="verdana" size="2">Tir</font></td>
<td align="center" width="30" bordercolor="#000000"><font face="verdana" size="2">Ons</font></td>
<td align="center" width="30" bordercolor="#000000"><font face="verdana" size="2">Tor</font></td>
<td align="center" width="30" bordercolor="#000000"><font face="verdana" size="2">Fre</font></td>
<td align="center" width="30" bordercolor="#000000"><font face="verdana" size="2">Lør</font></td>
<td align="center" width="30" bordercolor="#000000"><font face="verdana" size="2">Søn</font></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><a href=http://localhost/kalender.asp?date=" & DateAdd("d", intLoopDay-intFirstDay, dtmFirstDate)+1 & ">"
intLoopDay = intLoopDay + 1
If intLoopDay >= intFirstDay Then
dtmCurDate = DateAdd("d", intLoopDay-intFirstDay, dtmFirstDate)
If Month(dtmCurDate) = Month(dtmFirstDate) Then
If dtmCurDate = dtmToday Then
Response.Write ""
End If
Response.Write Day(dtmCurDate)
Response.Write "</td>"
blnLast = False
Else
Response.Write "</td>"
blnLast = True
End If
Else
Response.Write "</td>"
blnLast = True
End if
Response.Write "</a>"
Next
End If
Next
Response.Write "</font></td></tr>"
%>
<tr>
<td bgcolor="#000000" colspan="3"><font face="verdana" size="2"><a
href="kalender.asp?date=<%=DateAdd("m",-1,dtmFirstDate)%>">Forrige</a></font></td>
<td bgcolor="#000000">
<p align="center"><font face="verdana" size="2"><a
href="kalender.asp?date=<%=DATE%>">I dag</a></font></p>
</td>
<td bgcolor="#000000" colspan="3" align="right"><font face="verdana" size="2"><a
href="kalender.asp?date=<%=DateAdd("m",1,dtmFirstDate)%>">Næste</a></font></td>
</tr>
</table>
</center></div>
<p> </p>
<p> </p>
</body>
</html>
