<![CDATA[
<%
Session("FName")=Request("FirstName")
Session("LName")=Request("LastName")
Session("CompletionDate")=Request("SendDate")
'HERE IS ONE WAY OF CHECKING FOR AN EMPTY TEXT BOX
if not len(Request("FirstName")) > 0 then
Session("badFirstName")="T"
Session("Errors")=Session("Errors") + 1
end if
'AND HERE IS ANOTHER, BOTH SHOULD WORK
if Request("LastName")= "" then
Session("badLastName")="T"
Session("Errors")=Session("Errors") + 1
end if
if not IsDate(Request("SendDate")) then
Session("badDate")="T"
Session("Errors")=Session("Errors") + 1
end if
if Session("Errors") > 0 then
'there were errors, so send back to form
response.redirect "t1.asp"
else
'there were no errors, so do the update to the database and redirect to a thank you page
response.redirect "thanks.asp"
end if
%>
]]>