Asp

Hejsa

Jeg har denne script til en kalender:

<body bgcolor=#ffffff text=#4179B6 link=#4179B6 vlink=#4179B6 alink=#FF0000>

<%
dtmDate = Request.QueryString("date")
dtmToday = Date
sQLokale = request.querystring("Lokale")

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)
%>

<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?Lokale=" & sQLokale & "&Dag=" & Day(dtmCurDate) & "&Mdr=" & Month(dtmCurDate) & "&År=" & Year(dtmCurDate) & " ><font face=Verdana size=1 color=#4179b6>" & Day(dtmCurDate) & "</strong></font></a></td>"
                    Else ' Ny linie
                    Response.Write "<td align=center><a target=""højre"" href=dato.asp?Lokale=" & sQLokale & "&Dag=" & Day(dtmCurDate) & "&Mdr=" & Month(dtmCurDate) & "&År=" & Year(dtmCurDate) & " ><font face=Verdana size=1>" & Day(dtmCurDate) & "</strong></font></a></td>"
                    End if ' Er flyttet
                    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>"
%>


Hvordan gør jeg så den viser kalenderen for næste måned lige nedenunder?