You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

11 lines
249 B
Plaintext

<%
Dim date1 , date2 , strDateDiff
date1 = Now()
date2 = "18/10/1974"
strDateDiff = DateDiff("yyyy" , date2 , date1 )
If strDateDiff < 16 Then
Response.Write "Sorry you are under age"
Else
Response.Write "You may enter"
End If
%>