Sorry, left a few things out...
<html>
<head>
<title>Untitled</title>
<Script language="vbscript" >
Sub CheckDate_OnClick
dim beg1
beg1=(IsDate(Document.date
dim end1
end1=IsDate(Document.date1
If beg1 Then
If end1 Then
Alert "Good Date"
Else
Alert "FlightDates must be in the date format"
End if
else
Alert "FlightDates must be in the date format"
End if
End Sub
</script>
</head>
<body>
<form name="date1">
<input type="text" name="begdate1" size="10">Begin Date <br>
<input type="text" name="end1date1" size="10">End Date <br>
<input type="button" name="CheckDate" value="Check Date">
</form>
</body>
</html>
Main Topics
Browse All Topics
by: mgfranzPosted on 1999-06-28 at 17:36:32ID: 1863557
Use the IsDate() function;
Sub CheckDate_OnClick
dim beg=IsDate(BegFlightDate.v
dim end=IsDate(EndFlightDate.v
If beg Then
If end Then
Function Submit_Values
{ .....
}
else
Alert "FlightDates must be in the date format"
else
Alert "FlightDates must be in the date format"
...
<form>
<input type="button" name="CheckDate" value="Check Date">
</form>