<%
Dim datMittDatum

datMittDatum = "2002-06-03"

If IsDate(datMittDatum) Then
Response.Write("Det är ett giltigt datum!")
Else
Response.Write("Det är inget giltigt datum! (" & datMittDatum & ")")
End If
%>