11 lines
249 B
Plaintext
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
|
||
|
|
%>
|