Fejl i kalendermånederne okt,nov,dec
HejsaJeg har denne kalender (jeg kan ikke huske hvor den kommer fra), men den laver fejl i månederne oktober november december.
1 december = 1-02-2002
1 november = 1-01-2002
1 oktober = 1-00-2002
Det er jo godt nok nogle trælse måneder, men derfor behøver kalenderen jo ikke lave fejl :-)
Er der nogen der kan gennemskue hvad der er galt i koden?
Hilsen
Bugger
<html>
<head>
<title>Dette er et ASP dokument </title>
<link rel="stylesheet" type="text/css" href="asp-css.css">
</head>
<body>
<%
dtmDate = Request.QueryString("date")
response.write "<p><b><hr>" & dtmdate & "<hr>"
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)
%>
<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><%=strMonth%> <%=intYear%></strong></font></td>
</tr>
<tr>
<td align="center">Man</td>
<td align="center">Tir</td>
<td align="center">Ons</td>
<td align="center">Tors</td>
<td align="center">Fre</td>
<td align="center">Lør</td>
<td align="center">Søn</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
Response.Write "<strong>"
End If
If Len(Day(dtmCurDate)) = 1 then
vis_dato = "0" & Day(dtmCurDate)
else
vis_dato = Day(dtmCurDate)
end if
Response.Write "<a href='kalender.asp?date=" & vis_dato & "-" & right(dtmDate,6) & "'>" & Day(dtmCurDate) & "</a>"
Response.Write "</strong></td>"
blnLast = False
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>"
%>
<tr>
<td colspan="3"><font face="verdana" size="2"><b><a href="kalender.asp?date=<%=DateAdd("m",-1,dtmFirstDate)%>">Forrige</a></b></font></td>
<td> </td>
<td 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>
</center></div>
