Preciso diferenciar no meu calendário os dias que têm eventos. sqlDia = "SELECT * dia_inicio " & _ "FROM tab_agenda " & _ "WHERE month(data) = " & month(now) & " " & _ "AND year(data) = " & year(now) & "" x = 1 While Not rsDia.EOF vetDia(x) = rsDia("dia_inicio") rsDia.MoveNext x = x + 1 Wend For strDia = strInicio To strFim If strDia = vetDia(Day(strDia)) Then Response.Write ("<b>"& day(strDia) &"</b>") Else Response.Write(day(strDia)) End If strContGrade = strContGrade + 1 Next Alguém pode ajudar? Obrigado. Abs, Ricardo
