Problemer med kalender script
Har fundet et kalender script på nettet, men den er 2 dage bagud, den siger f.eks. at den 7 august (idag) er en tirsdag. Så medmindre jeg er max forvirret så er der et eller andet galt :) men hvad?<%
navmonth = request.querystring("month")
navyear = request.querystring("year")
If navmonth = "" Then
navmonth = Month(Date)
End If
If navyear = "" Then
navyear = Year(Date)
End If
If navday = "" Then
navday = Day(Date)
End If
'firstday = Weekday(navmonth&"/1/"&navyear)
firstday = Weekday("1/" & navmonth & "/" & navyear)
leapTestNumbers = navyear / 4
leapTest = (leapTestNumbers) - Round(leapTestNumbers)
If navmonth = 2 Then
If leapTest <> 0 Then
lastDate = 28
Else
lastDate = 29
End If
If navyear = 2000 then
Lastdate = 29
End If
ElseIf ((navmonth = 4) OR (navmonth = 6) OR (navmonth = 9) OR (navmonth = 11)) Then
lastDate = 30
Else
lastDate = 31
End If
lastMonth = navmonth - 1
lastYear = navyear
If lastMonth < 1 Then
lastMonth = 12
lastYear = lastYear - 1
End If
nextMonth = navmonth + 1
nextYear = navyear
If nextMonth >12 Then
nextMonth = 1
nextYear = nextYear + 1
End If
dateCounter = 1
weekCount = 1
firstday = firstday - 1
If firstday = 0 then
firstday = 7
End If
DateEnd = lastDate
DateBegin = firstDate
%>
<table border="0" cellpadding="0" cellspacing="0" align="center" ID="Table5">
<tr>
<td align="center">
<table border="0" cellpadding="2" cellspacing="0" width="100%" ID="Table12">
<tr>
<td align="left" valign="bottom"><font face="verdana" size="2"><b><a href="default.asp?page=vip&function=see_calender&month=<%=lastMonth%>&year=<%=lastYear%>"><%=MonthName(lastMonth)%></a></b></font></td>
<td align="center" valign="bottom"><font face="verdana" size="4"><b><%=MonthName(navMonth)%> <%=navyear%></b></font></td>
<td align="right" valign="bottom"><font face="verdana" size="2"><b><a href="default.asp?page=vip&function=see_calender&month=<%=nextMonth%>&year=<%=nextYear%>"><%=MonthName(nextMonth)%></a></b></font></td>
</tr>
</table>
</td>
</tr>
<tr>
<td>
<table border="0" cellpadding="0" cellspacing="0" align="center" ID="Table14">
<tr>
<td bgcolor="#000000">
<table border="0" cellpadding="2" cellspacing="1" ID="Table16">
<tr>
<td width="75" align="center" bgcolor="#52637B"><font face="Verdana" size="1" color="#FFCC00"><b>Mandag</b></font></td>
<td width="75" align="center" bgcolor="#52637B"><font face="Verdana" size="1" color="#FFCC00"><b>Tirsdag</b></font></td>
<td width="75" align="center" bgcolor="#52637B"><font face="Verdana" size="1" color="#FFCC00"><b>Onsdag</b></font></td>
<td width="75" align="center" bgcolor="#52637B"><font face="Verdana" size="1" color="#FFCC00"><b>Torsdag</b></font></td>
<td width="75" align="center" bgcolor="#52637B"><font face="Verdana" size="1" color="#FFCC00"><b>Fredag</b></font></td>
<td width="75" align="center" bgcolor="#52637B"><font face="Verdana" size="1" color="#FFCC00"><b>Lørdag</b></font></td>
<td width="75" align="center" bgcolor="#52637B"><font face="Verdana" size="1" color="#FFCC00"><b>Søndag</b></font></td>
</tr>
</tr>
<tr>
<% Do while weekCount <= 7
dateSelect = dateCounter & "/" & navmonth & "/" & navyear
%>
<% If (weekCount < firstDay) OR (dateCounter > lastDate) Then %>
<td height="70" bgcolor="#FFFFFF"><img src="im/clear.gif" height="1" width="1"></td>
<% else %>
<td height="70" bgcolor="#FFFFFF" valign="top"><font face="Verdana" size="2" color="#000000"><b><%=dateCounter%></b></font>
</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 = dateCounter & "/" & navmonth & "/" & navyear %>
<% If dateCounter > lastDate Then %>
<td height="70" bgcolor="#FFFFFF"><img src="im/clear.gif" height="1" width="1"></td>
<% else %>
<td height="70" bgcolor="#FFFFFF" valign="top"><font face="Verdana" size="2" color="#000000"><b><%=dateCounter%></b></font>
</font></a></td>
<%
dateCounter = dateCounter + 1
end if
weekCount = weekCount + 1
Loop
weekCount = 1
%>
</tr>
<% Loop %>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
