calendario perenne da lunedì

[santino83]

sostituisci

for i = 2 to WeekDay(DataInizio)-1
if i = 2 then Response.Write "<tr class=testog>" 
Response.write "<td height=17 class=testo> </td>" 
next

con

select case WeekDay(DataInizio)

case 1
for i = 2 to 7
if i = 2 then Response.Write "<tr class=testog>" 
Response.write "<td height=17 class=testo> </td>" 
next 

case else
for i = 2 to WeekDay(DataInizio)-1
if i = 2 then Response.Write "<tr class=testog>" 
Response.write "<td height=17 class=testo> </td>" 
next 
end select