Rientro un attimo nella questione:
Lasciando perdere al momento la parte dell'intero calendario appuntamenti, volevo chiedere se sia possibile avere una rappresentazione mensile di un mese dove sotto ogni giorno se presente un evento poterlo evidenziare ma soprattutto inserire ad es. il numero di appuntamenti presenti. Se ad esempio il 10/07/215 ci sono 12 eventi nel calendario vorrei visualizzare sotto/affianco o altro la dicitura (12 eventi).
in rete avevo trovato uno script che genera una sorta di calendario timeline ma non risulta ne navigabile nei mesi avanti indietro ne tantomeno credo che funzioni come dovrebbe.
codice:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/miaconnessione.asp" -->
<%
Dim Recordset1
Dim Recordset1_cmd
Dim Recordset1_numRows
Set Recordset1_cmd = Server.CreateObject ("ADODB.Command")
Recordset1_cmd.ActiveConnection = MM_scuolefki_STRING
Recordset1_cmd.CommandText = "SELECT IDTessere, Cognome FROM Tessere"
Recordset1_cmd.Prepared = true
Set Recordset1 = Recordset1_cmd.Execute
Recordset1_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
%>
<%
Dim intestazione ' Determina l'intestazione del box, mese e anno
Dim gg_mese ' Determina il giorno del mese
Dim gg_sett ' Determina il giorno della settimana
Dim gg, mm, aa ' Determina il giorno, il mese e l'anno correnti
Dim primo ' Determina il primo giorno del mese
Dim ultimo ' Determina l'ultimo giorno del mese
Dim colore_gg ' Colore di sfondo per il giorno corrente
intestazione = UCase(MonthName(Month(Date()))) & " " & Year(Date())
gg_mese = "01/" & Month(Date()) & "/" & Year(Date())
gg = 1
%>
<table bgcolor="#FFFFFF" align="center" cellpadding="5"
cellspacing="0" border="1" bordercolor="#CCCCCC">
<tr>
<td align="center" colspan="7" bgcolor="#EEEEEE">
<b><%=intestazione%></b>
</td>
</tr>
<%
' Verifico che se il mese il corso è Dicembre
' imposto il mese successivo a Gennaio dell'anno successivo
' oppure imposto mese ed anno alla data attuale
If (Month(Date()) + 1) > 12 Then
mm = 1
aa = Year(Date()) + 1
Else
mm = (Month(Date()) + 1)
aa = Year(Date())
End if
primo = "01" & "/" & mm & "/" & aa ' Primo giorno del mese
ultimo = DateAdd("d", -1, primo) ' Ultimo giorno del mese
' Creo dinamicamente la tabella ciclando i giorni
' ed interrompendo i cicli in funzione del fatto
' che il mese sia ancora in corso o meno
' e li associo al giorno della settimana corrispondente
While (gg < Day(ultimo))
%>
<tr>
<%
gg_sett = WeekDay(gg_mese)
For i = 1 To gg_sett - 1
%>
<td align="center">Attività</td>
<%
Next
For i = gg_sett To 31
' Imposto il colore di sfondo del giorno corrente
If gg = Day(Date()) Then
colore_gg = "#FFCCCC"
Else
colore_gg = "#FFFFFF"
End If
%>
<th scope="col" align="center" bgcolor="<%=colore_gg%>"><%=gg%></th>
<%
gg = gg + 1
If gg > Day(ultimo) Then Exit For
Next
For i = i + 1 To 7
%>
<%
Next
%>
</tr>
<%
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))
%>
<tr>
<td><%=(Recordset1.Fields.Item("Cognome").Value)%> </td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Recordset1.MoveNext()
Wend
%>
<%
gg_mese = gg & "/" & Month(Date()) & "/" & Year(Date())
Wend
%>
</table>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>