Problema con calendario ferie

[Lan]

Ciao a tutti,

Sto facendo un calendario dove, quando un responsabile di reparto si logga ed entra in questa pagina, gli appare un calendario ferie del mese dove sono elencati i permessi che il suo reparto ha chiesto...

Ho un piccolo problema, mi stampa a video il calendario ma non inserisce i nomi delle persone in permesso nei vari giorni...

(gli faccio fare un if sul numero del giorno e gli dico che se il giorno corrisponde al giorno nella casella allora mi deve stampare il nome della persona)

vi posto il codice:

<%
Giorno = day(now)
Mese = month(now)
Anno = year(now)

MeseNow = month(now)
%>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#FFFFFF" width="100%">
<%
'creo la data iniziale del mese
DataInizio= "01/" & Mese & "/" & Anno
Mese = DatePart("M",DataInizio)

'inizializzo il contatore dei giorni del mese 
CounterDay = 1
'ciclo scansione settimane 
for Week=0 to 5 
Response.Write("<tr>")
'ciclo che scandisce i giorni della settimana 
for DayX = 1 to 7
DayAttuale=Datepart("w",DataInizio,2)
'2 indica che Lunedi 
if DayAttuale = DayX then 
if Mese=Month(DataInizio) then 
%>

<%
'generazione cella calendario
if CounterDay = Giorno and Mese = Mese then
' Coloro la cella per data odierna
Response.Write("<td width='100' height='100' style='padding: 0' valign='top' bgcolor='#EFF3F6'>") 
Response.Write ("<font face='Verdana' size='2' color='#336699'><center>" & CounterDay & "
")

' prendo il mese
If MyMese = "" then
mydata = date()
MyMese = cstr(month(Mydata))
else
MyMese = MyMese
end if

' prendo i permessi del mese in questione
SqlPeople = "SELECT Permessi.ID_Permesso, Permessi.Tipo, Permessi.NomeDipendente, Permessi.GiornoPermesso, Permessi.InizioPermesso, Permessi.FinePermesso, Permessi.Motivo, Permessi.Mese, Permessi.GiornoRichiesto, Permessi.Responsabile, Permessi.Autorizzazione, Permessi.Ore, Permessi.Matricola, Permessi.PFerie, Permessi.Presenze, AnagraficaDipendente.Divisione_Dipendente FROM AnagraficaDipendente INNER JOIN Permessi ON AnagraficaDipendente.Matricola_Dipendente = Permessi.Matricola WHERE (((Permessi.Mese)= '" & MyMese & "') AND ((AnagraficaDipendente.Divisione_Dipendente)= '" & MyDivisione & "'))"
'response.write sqlPeople:response.end
set rsPeople = con.execute(sqlPeople)
IF Not rsPeople.EOF then
WHILE NOT rsPeople.EOF
MyGGPermesso = rsPeople("GiornoPermesso")
MyNum = left(MyGGPermesso,2)

If CounterDay = MyNum then
Mydip = rsPeople("NomeDipendente")
Numero = MyNum 
else
Mydip = ""
Numero = MyNum 
end if


Response.Write (" " & Mydip &"</center></font>")
rspeople.MoveNext 
Wend
end if

Response.Write ("
")
else
Response.Write("<td width='100' height='100' style='padding: 0' valign='top' bgcolor='#EFF3F6'>") 
Response.Write ("<font face='Verdana' size='2' color='#336699'><center>" & CounterDay & "
")

' prendo il mese
If MyMese = "" then
mydata = date()
MyMese = cstr(month(Mydata))
else
MyMese = MyMese
end if

' prendo i permessi del mese in questione
SqlPeople = "SELECT Permessi.ID_Permesso, Permessi.Tipo, Permessi.NomeDipendente, Permessi.GiornoPermesso, Permessi.InizioPermesso, Permessi.FinePermesso, Permessi.Motivo, Permessi.Mese, Permessi.GiornoRichiesto, Permessi.Responsabile, Permessi.Autorizzazione, Permessi.Ore, Permessi.Matricola, Permessi.PFerie, Permessi.Presenze, AnagraficaDipendente.Divisione_Dipendente FROM AnagraficaDipendente INNER JOIN Permessi ON AnagraficaDipendente.Matricola_Dipendente = Permessi.Matricola WHERE (((Permessi.Mese)= '" & MyMese & "') AND ((AnagraficaDipendente.Divisione_Dipendente)= '" & MyDivisione & "'))"
'response.write sqlPeople:response.end
set rsPeople = con.execute(sqlPeople)
IF Not rsPeople.EOF then
WHILE NOT rsPeople.EOF
MyGGPermesso = rsPeople("GiornoPermesso")
MyNum = left(MyGGPermesso,2)

If CounterDay = MyNum then
Mydip = rsPeople("NomeDipendente")
Numero = MyNum 
else
Mydip = ""
Numero = MyNum 
end if


Response.Write (" " & Mydip &"</center></font>")
rspeople.MoveNext 
Wend
end if


Response.Write ("
")
end if
%>

<%
'Chiudo la cella del calendario
Response.Write ("</td>")
%>
<%
'Continuo con un altro giorno
DataInizio=dateadd("d",1,DataInizio) 
CounterDay=CounterDay+1 
else 
'se il mese del giorno non e uguale a quello 
'attuale allora il calendario h terminato esco 
'dal ciclo ponendo Week = 5
Week=5 
end if 
else 
'se il giorno non fa parte del mese 
'attuale stampo una cella vuota
Response.Write("<td width='100' height='100'>&amp;nbsp;</td>") 
end if
next
%>
<%
'Chiudo la settimana
Response.Write("</tr>")
next
%>
<%
'Chiudo il calendario
Response.Write("</tr>")
Response.Write("</table>") 
%>

qualcuno ha qualche dritta da darmi??

grazie e buon lavoro a tutti

[Lan]

Nessun Suggermento??

[Mems]

Intanto bisogna sapere come sono strutturati i dati relativi agli utenti e le relazioni tra gli utenti e i responsabili, etc, etc, etc.

[Lan]

Allora:

L'utente ha un campo chiamato ruolo e uno divisione..

se il ruolo è Commerciale, allora il sistema va a prendere, in base alla sua divisione il suo responsabile..

quindi quando il responsabile entra nel suo calendario:

visualizzera tutti i permessi dei commerciali del suo reparto...
fin qui zero problemi....

il problema è che il codice che ti ho postato non visualizza il permesso che c'è in quel giorno...è come se l'IF non funzionasse...

[Lan]

ok ho risolto..
ora però ho un altro problema...

Mettiamo caso che io ho bisogno di 4 giorni di ferie e naturalmente compilo un solo modulo di richiesta con al suo interno i campi:
Inizio Ferie
Fine ferie

Ecco, come faccio a visualizzarli tutti e quattro occupati da me quei 4 giorni??

che calcolo devo fargli fare per fargli stampare a video le caselle di quei quattro giorni occupati dal mio permesso ferie?