asp kalender
Hej guyz!jeg sidder og prøver at lave en kalender hvor jeg kan oprette begivenheder.. jeg har fundet noget som jeg har arbejdet lidt videre på, men jeg kan ikke få den til at skifte år! dvs. fra december 2009 til januar 2010!
her er min kode
<%
Dim intMonth, intYear
intMonth = Request("Month")
intYear = Request("Year")
If intMonth ="" Then
intMonth = Month(Date())
End If
If intYear ="" Then
intYear = Year(Date())
End If
Dim dtmTemp
Dim intDays
dtmTemp = DateSerial(intYear,intMonth mod 12 + 1,1)
intDays = Day(DateAdd("d",-1,dtmTemp))
Dim intWeekDay
intWeekDay = WeekDay(DateSerial(intYear,intMonth,1))
Dim intOffset, intEnd
intOffset = intWeekday - 1
intEnd = intWeekday + intDays
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
<title>Untitled Document</title>
</head>
<body>
<%
Call Response.Write("<table border=""1"" cellspacing=""1"" cellpadding=""4"">" & vbCrLf & _
" <tr>" & vbcrlf & _
" <td align=""center""><a href=""root_cal.asp?month=" & (((intMonth + 10) mod 12) + 1) & _
"&year=" & Year(CDate(DateAdd("m",1,intMonth &"/1/" & intYear))) &""">Tilbage</a></td>" & vbcrlf & _
" <td align=""center"" colspan=""5""><font size=""4""><b>" & MonthName(intMonth) & _
" " & intYear &"</b></font></td>" & vbcrlf & _
" <td align=""center""><a href=""root_cal.asp?month=" & ((intMonth mod 12) + 1) & _
"&year=" & Year(CDate(DateAdd("m",1,intMonth &"/1/" & intYear))) &""">Næste</a></td>" & vbcrlf & _
" </tr>" & vbcrlf)
Dim i, intCurrentDay
For i= 1 to 42
intCurrentDay = i - intOffset
If (i mod 7) = 1 Then
Call Response.Write(" <tr>" & vbcrlf)
End If
If i >= intWeekday AND i < intEnd Then
Call Response.Write(" <td width=""75"" height=""60""><a href=book.asp?day=" & intCurrentDay & "&month=" & intMonth & "&year=" & intYear & "> " & intCurrentDay &"</a></td>" & vbcrlf)
Else
Call Response.Write(" <td width=""75"" height=""60"" bgcolor=""#EEEEEE""> </td>" & vbcrlf)
End If
If (i mod 7) = 0 Then
Call Response.Write(" </tr>" & vbcrlf)
If i >= (intDays + intWeekDay)-1 Then
Exit For
End If
End If
Next
Call Response.Write("</table>" & vbCrLf)
%>
</body>
</html>
endvidere kunne jeg godt tænke mig at gøre det umuligt at oprette begivenheder tilbage i tiden, hvis det kan lade sig gøre.. så man ikke kan oprette en begivenhed for en uge siden.
du kan se kalenderen på www.niux.dk/cal/root_cal.asp
tusind tak