Pruba a cambiar lo que has puesto en negrita por lo siguiente (modificando lo que sea necesario, como por ejemplo los siguientes datos):
'conn--> nombre de la conexión a la Base de Datos
'fecha--> nombre del campo de la BD donde guardas las fechas
'My [Year|Month|Day] --> para pintar el dia en el calendario (los días del mes)
'calendario --> nombre de la tabla donde guardas las fechas
sqlstr="SELECT * FROM calendario WHERE month(fecha)=" & Month(MyMonth) & " AND year(fecha)=" & Year(MyYear) & " AND day(fecha)=" & day(MyDay)
set RS = conn.execute(sqlstr)
If RS.EOF Then
if cInt(MyYear) = Year(Date) and cInt(MyMonth) = Month(Date) and CurrentDay = Day(Date) then
Response.Write "<div class='calResaltado'>"
else
Response.Write "<div class='calSimbolo'>"
end if
Response.Write CurrentDay & "</div></td>"
Else
response.write "<a href='" & URLDestino & "?day=" & CurrentDay & "&month=" & MyMonth & "&year=" & MyYear & "'>"
if cInt(MyYear) = Year(Date) and cInt(MyMonth) = Month(Date) and CurrentDay = Day(Date) then
Response.Write "<div class='calResaltado'>"
else
Response.Write "<div class='calSimbolo'>"
end if
Response.Write CurrentDay & "</div></a></td>"
End If
'---------------
No sé si te funcionará, por que lo he escrito ahora mismo. Adaptalo según creas necesario.
Espero que te ayude en algo...
Saludos!!