19 lines
522 B
Plaintext
19 lines
522 B
Plaintext
|
<form method ="post" action="<%= Request.ServerVariables("SCRIPT_NAME") %>">
|
||
|
|
<input type ="text" name="date"><br>
|
||
|
|
<input type="submit">
|
||
|
|
</form>
|
||
|
|
<%
|
||
|
|
Dim strDate , blnValid , dteDate
|
||
|
|
If Request.ServerVariables("CONTENT_LENGTH") <>0 Then
|
||
|
|
strDate = Trim(Request.Form("date"))
|
||
|
|
If isDate(strDate) Then
|
||
|
|
dteDate = CDate(strDate)
|
||
|
|
blnValid = True
|
||
|
|
Else
|
||
|
|
Response.Write "You entered an invalid date"
|
||
|
|
End If
|
||
|
|
If blnValid = True Then
|
||
|
|
Response.Write "The date you entered was " & dteDate
|
||
|
|
End If
|
||
|
|
End If
|
||
|
|
%>
|