codice:
giornoScelto = Request("data")
if giornoScelto = "" then
	giornoScelto = date()
end if
for i = 1 to giornidelmese(mese,anno)
  data = Cdate(( i & "/" & mese & "/" & anno))
  if WeekDay(data) = 1 then Response.Write "<tr>"
	if i = day(giornoScelto) then
	Response.Write("<td id='giorno" & i & "' align=""center"" class='CalendarioOggi'><a href=javascript:EVENTI('evento2.asp?data=" & Server.HTMLEncode(data) & "') class='cal'><font color=#FFFFFF>" & i & "</font></a></td>")
	elseif data = rs("dataevento") then  
	Response.Write("<td id='giorno" & i & "' align=""center"" bgcolor=#ff0000><a href=javascript:EVENTI('evento2.asp') class='cal'>" & i & "</a></td>")
	else
	Response.Write("<td id='giorno" & i & "' align=""center"" class='CalendarioGiorno'><a href=javascript:EVENTI('evento2.asp?data=" & Server.HTMLEncode(data) & "') class='cal'>" & i & "</a></td>")
	    end if  
  if WeekDay(data) = 7 then Response.Write "</tr>"
next
Così non mi da nessun errore ma neanche l'effetto desiderato...