VALIDER UNE DATE JJ/MM/AAAA

<%
'Fonction de vérification de date au format JJ/MM/AAAA
Function checkdate(d)

res=InStr(d,"/")
If res>0 Then
    jour=Mid(d,1,res-1)
    If IsNumeric(jour) Then
        If jour>0 And jour<32 Then
            res2=InStr(res+1,d,"/")
            If res2>0 Then
                mois=Mid(d,res+1,res2-res-1)
                If IsNumeric(mois) Then
                    If mois>0 And mois<13 Then
                        an=Mid(d,res2+1,Len(d))
                        If IsNumeric(an) Then
                            If an<2099 Then
                                msg="Format valide" 
                            Else
                                msg="Année non valide"
                            End If
                        Else
                            msg="Année non valide"
                        End If
                    Else
                        msg="Mois non valide"
                    End If
                Else
                    msg="Mois non valide"
                End If
            Else
                msg="Format non valide (JJ/MM/AAAA)"
            End If
        Else
            msg="Jour non valide"
        End If
    Else
        msg="Jour non valide"
    End If
Else
msg="Format non valide (JJ/MM/AAAA)"
End If
If msg<>"Format valide"  Then
checkdate=msg
Response.Redirect("erreur.asp")
Else
checkdate=True
If  IsDate(d) = False Then
Response.Redirect("erreur.asp")
End If
End If

End Function 
%>