Ændring i Kalenderscript
Hej - jeg bruger en asp kalender.Men kunne godt tænke mig uge nr. på og at man kunne bestemme bg farve i cellerne. Nogen der ved hvordan det nemmest kan gøres?
<% REM --------BEGINNING OF DRAW CALENDAR SECTION-------- %>
<% REM This section executes the event query and draws a matching calendar. %>
<%
Dim iDay, iWeek, sFontColor, dictDte(31,2), intCount
strSql = "SELECT * FROM calendar WHERE year(dte) = " & year(dtCurViewMonth) &" AND month(dte)= " & month(dtCurViewMonth) & " ORDER BY Day(dte)"
stryear = "select * FROM yearlycal Where month(dte)= " & month(dtCurViewMonth) & " ORDER BY Day(dte)"
set rsyearly = my_conn.execute (stryear)
set rs = my_conn.Execute (StrSql)
intCount= 0
' populate array with days of month
do until rs.EOF or intCount = 31
if Day(rs("dte")) = intCount + 1 then
dictDte(intCount, 1) = rs("text_field")&"<br>"
rs.Movenext
End If
'dictDte(intCount, 2) = intCount + 1
intCount = intCount + 1
loop
rs.close
intCount= 0
' populate array with days of month
do until rsyearly.EOF or intCount = 31
if Day(rsyearly("dte")) = intCount + 1 then
dictDte(intCount, 1) = dictDte(intCount, 1)&"<font color=#FFFF00>"&rsyearly("yearlyevents")&"</font><br>"
'response.write dictDte(intCount, 1)
rsyearly.Movenext
End If
'dictDte(intCount, 2) = intCount + 1
intCount = intCount + 1
loop
rsyearly.close
%>
<html>
<head>
<title>Web Calendar</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head>
<body text="#000000" link="#FFFFFF" vlink="#FFFFFF" bgcolor="#FFFFFF">
<p align="center"><a href="mailto:stefan@fckbanden.dk"><font color="#0000FF"><br>
</font></a> <table CELLPADDING="3" CELLSPACING="0" WIDTH="100%" BORDER="2" BGCOLOR="#000099" bordercolordark="#1C644C" bordercolor="#000099" bordercolorlight="#FFFFFF">
<tr VALIGN="MIDDLE" ALIGN="CENTER"> <form NAME="fmNextPrev" ACTION="index.asp" METHOD="POST">
<input type="hidden" name="CURDATE" value="<%=dtCurViewMonth%>">
<table CELLPADDING="3" CELLSPACING="0" WIDTH="79%" BORDER="2" BGCOLOR="#99CCFF" BORDERCOLORDARK="#003399" BORDERCOLORLIGHT="#FFFFFF">
<tr VALIGN="MIDDLE" ALIGN="CENTER">
<td WIDTH="30%" ALIGN="RIGHT"><input TYPE="image" NAME="subPrev" SRC="Left.gif" BORDER="0" WIDTH="18" HEIGHT="20" HSPACE="0" VSPACE="0"> </td>
<td WIDTH="40%"><font FACE="Arial" COLOR="#000000"><b><%=MonthName(Month(dtCurViewMonth)) & " " & Year(dtCurViewMonth)%></b> </font></td>
<td WIDTH="30%" ALIGN="LEFT" colspan="7"><input TYPE="image" NAME="subNext" SRC="Right.gif" BORDER="0" WIDTH="18" HEIGHT="20" HSPACE="0" VSPACE="0"> </td>
</tr>
</table>
<table width="79%">
<tr VALIGN="TOP" ALIGN="CENTER" BGCOLOR="#000099">
<% For iDay = vbSunday To vbSaturday %>
<th WIDTH="14%"><font FACE="Arial" SIZE="-2" COLOR="#FFFFFF"><%=WeekDayName(iDay)%></font></th>
<%Next %>
</tr>
<%
dtCurViewDay = DtPrevSunday(dtCurViewMonth)
For iWeek = 0 To 5
Response.Write "<TR VALIGN=TOP>" & vbCrLf
Dim sBGCOLOR
sBGCOLOR = "#99ccff"
For iDay = 0 To 6
sBGCOLOR = "#003399"
If Month(dtCurViewDay) = Month(dtCurViewMonth) Then
If dtCurViewDay = dtToday Then sBGCOLOR = "#99ccff"
else
sBGCOLOR = "#003399"
End If
Response.Write "<TD HEIGHT=50 bgcolor='" & sBGCOLOR & "' >"
If Month(dtCurViewDay) = Month(dtCurViewMonth) Then
If dtCurViewDay = dtToday Then
sFontColor = "#00FF00<i></i>"
Else
sFontColor = "#00FF00"
End If
'---- Write day of month
Response.Write "<FONT FACE=""Arial"" SIZE=""-2"" COLOR=""" & sFontColor & """><B>"
Response.Write "<a href=view_day.asp?" & "view_date=" & day(dtCurViewday) & "-" & monthname(month(dtCurViewday)) & "-"&Year(dtCurViewMonth)&" style=""text-decoration: none"">" & Day(dtCurViewDay) & "</B><font color='"&sfontcolor&"'><br>" & formatStr(dictDte(Day(dtCurViewDay)- 1, 1)) & "</a></FONT><BR>"
'---Else
'---Response.Write " "
End If
Response.Write " </TD>" & vbCrLf
dtCurViewDay = DateAdd("d", 1, dtCurViewDay)
Next
Response.Write "</TR>" & vbCrLf
Next
%>
<%REM --------END OF DRAW CALENDAR SECTION--------
