Errore eccezione

[yoyo87]

for i = 1 to giornidelmese(mese,anno)
  data = Cdate(( i & "/" & mese & "/" & anno)) 
  if WeekDay(data,VbMonday) = 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 = Cdate(rs("dataevento")) then 
	Do while not rs.EOF
  Response.Write("<td id='giorno" & data & "' align='center' class='CalendarioGiornoEvento'><a href=javascript:EVENTI('evento2.asp?data=" & Server.HTMLEncode(data) & "') class='cal'>" & i & "</a></td>") 
	rs.movenext
	Loop
	Else
	Response.Write("<td id='giorno" & data & "' align='center' class='CalendarioGiorno'><a href=javascript:EVENTI('evento2.asp?data=" & Server.HTMLEncode(data) & "') class='cal'>" & i & "</a></td>")
	end if
  if WeekDay(data,VbMonday) = 7 then Response.Write "</tr>"
next

In rosso la riga dell'errore...