<% 
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 
%>