Kalender viser kun første og sidste post
Hej.. Jeg har en kalender som henter data'en fra en DB. Men den viser kun først og sidste post, det virker som om der er noget i vejen med loop'et... Prøv selv at se:<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center">
<table border="0" cellpadding="2" cellspacing="0" width="180">
<tr>
<td align="left" valign="bottom"><font face="verdana" size="2"><b><a href="mainWin.asp?month=<%=lastMonth%>&year=<%=lastYear%>"><font size="1"><img src="fix/calback.gif" border="0"></font></a></b></font></td>
<td align="center" valign="bottom"><font face="verdana" size="4" color="#536788"><b><font size="1"><%=UCase(MonthName(navMonth))%> '<%=mid(navyear,3,4)%></b></font></td>
<td align="right" valign="bottom"><font face="verdana" size="2"><b><a href="mainWin.asp?month=<%=nextMonth%>&year=<%=nextYear%>"><font size="1"><img src="fix/calforward.gif" border="0"></a></b></font></td>
</tr>
</table>
</td>
</tr>
<tr>
<td>
<table border="0" cellpadding="0" cellspacing="0" align="center" width="100%" height="100%">
<tr>
<td bgcolor="#C4D0E3">
<table border="0" cellpadding="2" cellspacing="1" width="100%" height="100%">
<tr>
<td width="20" align="center"><font face="verdana" size="1" color="#536788"><b>Søn</b></font></td>
<td width="20" align="center"><font face="verdana" size="1" color="#536788"><b>Man</b></font></td>
<td width="20" align="center"><font face="verdana" size="1" color="#536788"><b>Tir</b></font></td>
<td width="20" align="center"><font face="verdana" size="1" color="#536788"><b>Ons</b></font></td>
<td width="20" align="center"><font face="verdana" size="1" color="#536788"><b>Tor</b></font></td>
<td width="20" align="center"><font face="verdana" size="1" color="#536788"><b>Fre</b></font></td>
<td width="20" align="center"><font face="verdana" size="1" color="#536788"><b>Lør</b></font></td>
</tr>
<tr>
<% Do while weekCount <= 7
dateSelect = navmonth & "/" & dateCounter & "/" & navyear %>
<% If (weekCount < firstDay) OR (dateCounter > lastDate) Then %>
<td height="20" bgcolor="#f1f1f1" align="center"><img src="im/clear.gif" height="1" width="1"></td>
<% else
Set RSEVENT = Server.CreateObject("ADODB.RecordSet")
RSEVENT.Open "SELECT * FROM Events", Conn, 1, 3
if (Day(rsdate) = dateCounter) AND (Month(rsdate) = CInt(navmonth)) AND (Year(rsdate) = CInt(navyear)) Then
Set RSEVENT = Server.CreateObject("ADODB.RecordSet")
RSEVENT.Open "SELECT * FROM Events", Conn, 1, 3
count = 0
Do while NOT RSEVENT.EOF
count = count + 1
rsdate = RSEVENT("Date")
If (Day(rsdate) = dateCounter) AND (Month(rsdate) = CInt(navmonth)) AND (Year(rsdate) = CInt(navyear)) Then
If NOT RSEVENT("Event_Name") = "" Then
if count = 1 then
JokerenTemp = JokerenTemp & "<B>Kursusinformation:</b> [Se mere]<br>" & rsEVENT("Event_Name") & "<BR>" & rsEvent("Location") & ", Kl: " & FormatDateTime(rsevent("Date"), vbShortTime) & " "
else
JokerenTemp = JokerenTemp & "<br><br><B>Kursusinformation:</b> [Se mere]<br>" & rsEVENT("Event_Name") & "<BR>" & rsEvent("Location") & ", Kl: " & FormatDateTime(rsevent("Date"), vbShortTime) & " "
end if
End If
else%>
<%end If %>
<%RSEVENT.movenext
Loop
RSEVENT.close%>
<td height="20" bgcolor="#CED1D6" align="center" valign="middle"><a href="date.asp?date=<%=dateSelect%>"><font face="verdana" size="1" color="#536788">
<b><span onMouseOver="gettip('<% = JokerenTemp %>')"><%=dateCounter%></span></b>
<% else %>
<td height="20" bgcolor="#f1f1f1" align="center" valign="middle"><a href="date.asp?date=<%=dateSelect%>"><font face="verdana" size="1" color="#A7B2C2"><%=dateCounter%>
<% end if %>
</font></a></td>
<%
dateCounter = dateCounter + 1
end if
weekCount = weekCount + 1
Loop
weekCount = 1
%>
</tr>
<% Do while dateCounter <= lastDate %>
<tr>
<% Do while weekCount <= 7
dateSelect = navmonth & "/" & dateCounter & "/" & navyear %>
<% If dateCounter > lastDate Then %>
<td height="20" bgcolor="#f1f1f1" valign="middle"><img src="im/clear.gif" height="1" width="1"></td>
<% else %>
<%
Set RSEVENT = Server.CreateObject("ADODB.RecordSet")
RSEVENT.Open "SELECT * FROM Events", Conn, 1, 3
countTemp = 0
Do while NOT RSEVENT.EOF
rsdate = RSEVENT("Date")
If (Day(rsdate) = dateCounter) AND (Month(rsdate) = CInt(navmonth)) AND (Year(rsdate) = CInt(navyear)) Then
If RSEVENT("Event_Name") = ""Then%>
<% Else %>
<% countTemp = countTemp +1 %>
<% End If %>
<% else %>
<% End If
RSEVENT.movenext
Loop
RSEVENT.close
%>
<%Set RSEVENT = Server.CreateObject("ADODB.RecordSet")
RSEVENT.Open "SELECT * FROM Events", Conn, 1, 3
%>
<%If (Day(rsdate) = dateCounter) AND (Month(rsdate) = CInt(navmonth)) AND (Year(rsdate) = CInt(navyear)) Then%>
<td height="20" bgcolor="#CED1D6" align="center" valign="middle"><a href="date.asp?date=<%=dateSelect%>"><font face="verdana" size="1" color="#536788">
<b><span onMouseOver="return overlib('<% = countTemp & " arrangement(er):" %><br><br>- <%=RSEVENT("Event_Name") %> (<%=FormatDateTime(rsevent("date"), vbShortTime) %>)', CAPTION, '<% = dateCounter & ". " & MonthName(navMonth) & " " & navyear %>', FGCOLOR, '#eaeaea', BGCOLOR, '#888888', CAPCOLOR, '#FFFFFF', TEXTCOLOR, '#000000', WIDTH, '180');" onMouseOut="nd();"><%=dateCounter%></span></b>
<% else %>
<td height="20" bgcolor="#f1f1f1" align="center" valign="middle"><a href="date.asp?date=<%=dateSelect%>"><font face="verdana" size="1" color="#A7B2C2"><%=dateCounter%>
<% end if %>
<%
Set RSEVENT = Server.CreateObject("ADODB.RecordSet")
RSEVENT.Open "SELECT * FROM Events", Conn, 1, 3
Do while NOT RSEVENT.EOF
rsdate = RSEVENT("Date")
If (Day(rsdate) = dateCounter) AND (Month(rsdate) = CInt(navmonth)) AND (Year(rsdate) = CInt(navyear)) Then%>
<br>
<%
End If
RSEVENT.movenext
Loop
RSEVENT.close
%>
</font></a></td>
<%
dateCounter = dateCounter + 1
end if
weekCount = weekCount + 1
Loop
weekCount = 1
%>
</tr>
<% Loop %>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<!-------- SLUT: ANDEN TABEL ---------->
