Jeg har skrevet kommentarer efter de 3 linier jeg har lavet.
// --
<html>
<head>
<title>Kalender</title>
</head>
<body bgcolor="#FFFFFF" text="#000000" link="#C0C0C0" vlink="#C0C0C0" alink="#C0C0C0">
<%
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)
%>
<p align="center"><font face="verdana" size="4">Eksempel på en kalender</font></p>
<div align="center"><center>
<table cellspacing="0" cellpadding="2" border="0" valign="top"
style="border: 1px solid rgb(0,0,0)">
<tr>
<td colspan="8" align="center" valign="middle" bgcolor="#000000"><font face="Verdana"
size="2" color="#ffffff"><strong><%=strMonth%> <%=intYear%></strong></font></td>
</tr>
<tr>
<% Response.Write "<td align=center bgcolor=#cccccc><font face=verdana size=2>Uge</font></td>" // -- Ugeoverskrift i grå %>
<td align="center"><font face="verdana" size="2">Man</font></td>
<td align="center"><font face="verdana" size="2">Tir</font></td>
<td align="center"><font face="verdana" size="2">Ons</font></td>
<td align="center"><font face="verdana" size="2">Tor</font></td>
<td align="center"><font face="verdana" size="2">Fre</font></td>
<td align="center"><font face="verdana" size="2">Lør</font></td>
<td align="center"><font face="verdana" size="2">Søn</font></td>
</tr>
<%
For y = 1 to 6
If blnLast <> True Then
Response.Write "<tr>"
dtmCurDate = DateAdd("d", (intLoopDay + 1) -intFirstDay, dtmFirstDate) // -- Beregn dato
Response.Write "<td bgcolor=#cccccc>" & DatePart("ww", dtmCurDate) & "</td>" // -- Skriv ugenr med grå baggrund
For x = 1 to 7
Response.Write "<td align=center><font face=verdana size=2>"
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>"
End If
Response.Write Day(dtmCurDate)
Response.Write "</strong></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>"
%>
<tr>
<td bgcolor="#000000" colspan="3"><font face="verdana" size="2"><b><a
href="kalender.asp?date=<%=DateAdd("m",-1,dtmFirstDate)%>">Forrige</a></b></font></td>
<td bgcolor="#000000"> </td>
<td bgcolor="#000000" colspan="4" align="right"><font face="verdana" size="2"><b><a
href="kalender.asp?date=<%=DateAdd("m",1,dtmFirstDate)%>">Næste</a></b></font></td>
</tr>
</table>
</center></div>
<p align="center"><font face="verdana" size="1">Dette eksempel er lavet af Dennis Knappe<br>
Det kan downloades fra <a href="
http://activedeveloper.dk">http://activedeveloper.dk</a></font></p></body></html>
Ny bruger
Nybegynder
Opret
Preview
