Data evento ..codice sbagliato?

[yoyo87]

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" & data & "' align=""center"" bgcolor=#ff0000><a href=javascript:EVENTI('evento2.asp') class='cal'>" & i & "</a></td>")
	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) = 7 then Response.Write "</tr>"
next
cn.Close
set cn = nothing

In cosa sbaglio?? Non mi viene dato nessun errore, ma neanche l'effetto desiderato, cioè vorrei colorare la cella del o dei giorni in cui è presente un evento, invece così me le colora tutte.
Ho pensato se la data è uguale a rs("dataevento") allora colorala...no??

p.s. naturalmente ho aperto la connessione al DB, ma non lo postata :P

[yoyo87]

Se data è uguale a rs("dataevento") lo traduco:

elseif data <> rs("dataevento") then
Per capirci meglio guardate il codice completo sopra...