Verificar se o ano é bissexto

Esta função verifica se o ano é bissexto (quando fevereiro tem 29 dias), ela retorna True quando for e False.

<%
Function AnoBissexto(ByVal Ano)
    AnoBissexto = ((Ano Mod 4 = 0) And (Not(Ano Mod 100 = 0))) Or (Ano Mod 400 = 0)
End Function
%>

Classe de conexão e acesso ao banco de dados