Hier unten ist ein quelltext, leider finde ich den Fehler nicht, dies sollte eigentlich ein Kalender werden, aber er bringt nur nen fehler... (keine ahnung warum) und fehler ist auch nur das was net stimmt, aber was sagt er mit auch net.
Vieleicht könnt ihr mir helfen^^
Code:
<%= Response.Expires=0 %>
<html>
<head><link rel="stylesheet" type="text/css" href="style.css">
</head>
<body>
<h3>Kalenderblätter ausgeben</h3><hr>
<%
WriteCalendar "12. Februar 2000", vbMonday, "RED"
WriteCalendar date(), vbSunday, """#ACFFD8"""
WriteCalendar "14. Februar 2002", vbWednesday, """#CCCCCC"""
function GetLastDay(datum)
monat = month(datum)
jahr = year(datum)
for test = 28 to 32
testdatum = dateserial(jahr, monat, test)
if not month(testdatum) = monat then
'Monatswechesel!
GetLastDay = test - 1
exit for
end if
next
end function
sub WriteCalendar(myDatum, wochenbeginn, farbe)
jahr = year(myDatum)
monat = month(myDatum)
tag = day(myDatum)
monatsname = monthname(monat)
ersterTag = DateSerial(jahr, monat, 1)
letzterTag = GetLastDay(myDatum)
ersterTagName = WeekdayName(Weekday(ersterTag))
start = Weekday(ersterTag,wochenbeginn)
anzahl = letzterTag
counter = 0
%>
<h4>Kalender für <%=monatsname%> <%=jahr%></h4>
<TABLE BORDER="1">
<TR>
<%
for y=1 to 7
%>
<TD><%=WeekdayName(y,vbTrue,wochenbeginn)%></TD>
<%
next
%>
</TR>
<%
reihen = int((start + anzahl-1)/7)
if (start + anzahl-1) mod 7 >0 then
reihen = reihen + 1
end if
for x = 1 to reihen
%>
<TR>
<%
for y = 1 to 7
counter = counter + 1
if counter>=Start and Counter<(Start + Anzahl) then
if (counter-start+1)=tag then
%>
<TD BGCOLOR=<%=farbe%>>
<%
else
%>
<TD>
<%
end if
%>
<%=Counter-Start+1%></TD>
<%
else
%>
<TD>-</TD>
<%
end if
next
%>
</TR>
<%
next
%>
</TABLE>
<%
end sub
%>
</body>
</html>
