error 404: file not found

Info about Italian Travel Team
Useful information about the main Italian destination
F.A.Q.

The Web server cannot find the file or script you asked for.You may have typed the address incorrectly or may have used an outdated link or bookmark.

www.italiantravelteam.com

Search this site or the web

Site search Web search
<% Giorno = day(now) Mese = month(now) Anno = year(now) MeseNow = month(now) %> <% '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("") '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 ("") %> <% '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("") end if next %> <% 'Chiudo la settimana Response.Write("") next %> <% 'Chiudo il calendario Response.Write("") Response.Write("
") Response.Write ("
" & CounterDay & "
") Response.Write ("
") else Response.Write("
") Response.Write ("
" & CounterDay & "
") Response.Write ("
") end if %> <% 'Chiudo la cella del calendario Response.Write ("
&nbsp;
") %>