Kalender - Tabeller og dato

Hejsa

Jeg har et problem med min kalender ... den skriver for det første datoen fra i dag 2 gange og bryder mine tabeller ... se her hvad jeg mener:

http://www.havneparken1vejle.dk/1/kalender.asp

Hvis man vælger en anden måned end den der indenholder dagen i dag er der ikke noget ... hvad har jeg gjort galt?

<TABLE cellSpacing=0 cellPadding=2 width=150 align=center border=0>
  <TR>
    <TD>
      <CENTER>
      <P><FONT face=Verdana size=2><A href="kalender.asp?date=<%=DateAdd("m",-1,dtmFirstDate)%>">&lt;&lt;</A>
      | <A href="kalender.asp">I dag</A>
      | <A href="kalender.asp?date=<%=DateAdd("m",1,dtmFirstDate)%>">&gt;&gt;</A></FONT></P></CENTER></TD></TR></TABLE>
<TABLE borderColor=#cccccc cellSpacing=0 width=150 align=center border=1>
  <TR>
    <TD colSpan=7>
      <P align=center><FONT face=Verdana size=1><%=strMonth%>&nbsp;<%=intYear%></FONT></P></TD></TR>
  <TR>
    <TD>
      <P align=center><font face="Verdana" size="1">Ma</font></P></TD>    <TD>
      <P align=center><font face="Verdana" size="1">Ti</font></P></TD>    <TD>
      <P align=center><font face="Verdana" size="1">On</font></P></TD>    <TD>
      <P align=center><font face="Verdana" size="1">To</font></P></TD>    <TD>
      <P align=center><font face="Verdana" size="1">Fr</font></P></TD>    <TD>
      <P align=center><font face="Verdana" size="1">Lø</font></P></TD>    <TD>
      <P align=center><FONT face=Verdana size=1>Sø</FONT></P></TD></TR>
  <TR>

<%
For y = 1 to 6
    If blnLast <> True Then
        Response.Write "<tr>"
        For x = 1 to 7
            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 "<td align=center bgcolor=#ffcccc><a target=""højre"" href=dato.asp?dato="&dtmCurDate&" ><font face=Verdana size=1 color=#4179b6>" & Day(dtmCurDate) & "</strong></font></a></td>"
                    End If
                    Response.Write "<td align=center><a target=""højre"" href=dato.asp?dato="&dtmCurDate&" ><font face=Verdana size=1>" & Day(dtmCurDate) & "</strong></font></a></td>"

                    blnLast = False
                Else
                    Response.Write "<td align=center bgcolor=#ebebeb><font face=Verdana size=1>-</td>"
                    blnLast = True
                End If
            Else
                Response.Write "<td align=center bgcolor=#ebebeb><font face=Verdana size=1>-</td>"
                blnLast = True
            End if
        Next
    End If
Next
Response.Write "</font></td></tr>"
%>