Kalender kosmetik

Hvis du viser os noget kode vil der sikkert være nogen der kan hjælpe dig.

jamen det kommer da lige her så:

<%
dtmDate = Request.QueryString("date")
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)
%>
<table class="text" cellspacing="0" cellpadding="0" border="0">
    <tr>
        <td align="center" width="18" height="18"><b><a href="index.asp?date=<%=DateAdd("m",-1,dtmFirstDate)%>">&lsaquo;</a></b></td>
        <td colspan="5" align="center" width="90" height="18"><font style="text-transform: uppercase">
        <strong style="font-weight: 400"><%=strMonth%>&nbsp;<%=intYear%></strong></td>
        <td align="center" width="18" height="18"><b><a href="index.asp?date=<%=DateAdd("m",1,dtmFirstDate)%>">&rsaquo;</a></b></td>
    </tr>
    <tr>
        <td align="center" width="18" height="18"><b>M</b></td>
        <td align="center" width="18" height="18"><b>T</b></td>
        <td align="center" width="18" height="18"><b>O</b></td>
        <td align="center" width="18" height="18"><b>T</b></td>
        <td align="center" width="18" height="18"><b>F</b></td>
        <td align="center" width="18" height="18"><b>L</b></td>
        <td align="center" width="18" height="18"><b>S</b></td>
    </tr>
    <%
    For y = 1 to 6
      If blnLast <> True Then
        Response.Write "<tr>"
        For x = 1 to 7
          Response.Write "<td align=center>"
          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><font color=#ff0000>"
            If Day(dtmCurDate)<=9 Then Response.Write "<a class='kal' id="""&dtmCurDate&""" href=""show.asp?dato="&dtmCurDate&""">0"&Day(dtmCurDate)&"</a>"
            If Day(dtmCurDate)>9 Then Response.Write "<a class='kal' id="""&dtmCurDate&""" href=""show.asp?dato="&dtmCurDate&""">"&Day(dtmCurDate)&"</a>"
              If dtmCurDate = dtmToday Then Response.Write "</strong>"
                  Response.Write "</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>"
    %>

må lære at leve med de streger så ...
(lukker)