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

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