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