">

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