<%
Option Explicit
Dim TheMessage
If IsDate(Request.Form("BirthDate")) then
  If Cdate(Request.Form("BirthDate")) <= Date then
    TheMessage = "Warto poprawna"
  Else
    TheMessage = "Data urodzenia nie moe by dat przysz!"
  End If
Else
  TheMessage = "Wprowadzona warto nie jest dat"
End If
%>
