<%
Option Explicit
Dim TheMessage
If IsDate(Request.Form("BirthDate")) then
  TheMessage = "Wprowadzie dat!"
Else
  TheMessage = "Wprowadzie niewaciw warto w pole daty urodzenia!"
End If
%>
