En kalender jeg får fejl i
Jeg får fejl i denne, er der nogen der lige kan hvad mangler ??<html>
<head>
<title>Kalender</title>
//<style>{font-family="Arial"}</style>
//<Basefont SIZE=2>
</head>
<SCRIPT LANGUAGE=VBSCRIPT RUNAT=SERVER>
Function GetLastDay(datTheDate)
intMonthNum = Month(datTheDate)
intYearNum = Year(datTheDate)
intResult = 28
For intLastday = intResult To 31
datTestDay = DateSerial(intYearNum, intMonthNum, intLastDay)
If Month(datTestDay) = intMonthNum then
intResult = intLastDay
End If
Next
GetLastDay = intResult
End Function
</script>
<%
datToday = Date()
intThisYear = Year(datToday)
intThisMonth = Month(datToday)
intThisDay = Day(datToday)
strMonthName = MonthName(intThisMonth)
strWeekDayName = WeekDayName(weekDay(datToday), False, vbSunday)
datFirstDay = DateSerial(intThisYear, intThisMonth, 1)
intFirstWeekDay = Weekday(datFirstDay, vbSunday)
intLastDay = GetLastDat(datToday)
intPrintDay = 1
%>
<Body BGCOLOR=wheat>
FONT COLOR=Teal SIZE=3>
<B>Hvilken dag er det idag ?</B>
</font><p>
<table>
<tr>
<th colspan=7><% = strMonthName %> <% = intThisYear %></th>
</tr>
<tr> <td> Sun %nbsp;</td> <td> Mon %nbsp;</td>
<td> Tue %nbsp;</td> <td> Wed %nbsp;</td>
<td> Thu %nbsp;</td> <td> Fri %nbsp;</td>
<td> Sat %nbsp;</td>
</tr>
<% while intPrintDay <= intLastday %>
<tr>
<% For intLoopDay = 1 To 7 %>
<% If (intPrintDay = intThisDay) and (intFirstWeekDay <=1) then %>
<td ALIGN=CENTER BGCOLOR=Red>
<% Else %>
<TD ALIGN=CENTER>
<% End If %>
<% if intFirstWeekDay > 1 then %>
-
<% intFirstWeekDay = intFirstWeekDay - 1 %>
<% else %>
<% if intPrintDay > intLastDay then %>
-
<% Else %>
<B><% = intPrintDaY %></B>
<% End If %>
<% intPrintDay = intPrintDay + 1 %>
<% End If %>
</td>
<% next %>
</tr>
<% wend %>
</Table>
</body>
</html>
