Dato

Hejsa ...

Hvordan laver jeg så hvis datoen ikke er i dag eller en nyere dato så skal man ikke kunne klikke på den?

Her er min kode:

<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

for mCount = 0 to 1                      'ny linie
  dtmDate = DateAdd("m",mCount,dtmDate)    'ny linie

  intYear = Year(dtmDate)
  strMonth = MonthName(Month(dtmDate))
  intDayOfMonth = Day(dtmDate)
  dtmFirstDate = DateAdd("d", (-intDayOfMonth)+1, dtmDate)
  intFirstDay = Weekday(dtmFirstDate, vbMonday)
%>

<% if mCount = 0 then %>
<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",-2,dtmFirstDate)%>">&lt;&lt;</A>
      | <A href="kalender.asp">I dag</A>
      | <A href="kalender.asp?date=<%=DateAdd("m",2,dtmFirstDate)%>">&gt;&gt;</A></FONT></P></CENTER>
    </TD>
  </TR>
</TABLE>
<% end if %>

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

<%
blnLast = False
intLoopDay = 0
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>"
%>
</table> <br>
<% next 'for i=0 to 1    <---- ny linie    %>