Colorare data evento

[yoyo87]

Vorrei colorare la cella in base a se il giorno del calendario corrisponda ad un evento nel DB. Come faccio?? ... mi sono spiegato si?

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""><a href=javascript:EVENTI('evento2.asp?data=" & Server.HTMLEncode(data) & "') class='cal'><font color=#FFFFFF>" & i & "</font></a></td>")
	else
		Response.Write("<td id='giorno" & i & "' align=""center""><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

[weppos]

Richiama il dato dal db, confrontalo con la data e se corrispondono allora colora lo sfondo.

[yoyo87]

Io avevo fatto così:

if data = rs("dataevento") then
		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

Ma non funziona...

[maximum]

data cosa contiene?

[yoyo87]

If Request("data") ="" then
data = Date()

[yoyo87]

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...