Well, this is how i would do it.
When you build the form tag, you have
response.write("<form action=""" & Request.ServerVariables ("SCRIPT_NAME") &""" method=""POST"" ... etc ... >")
This posts the page to itself.
Inside this page, you have a check at the top of it. Like
dim flag
if Len(request.form("loginstate"))=0 then ' so the first time that the loginpage is requested, this will be true
here you have a welcome message or whatever. Some text that only needs to e displayed the first time.
flag = 0
else 'this means the page is requested for the second time --> the loginform is posted
flag = 1
dim error
if Len(request.form("username") > 0 AND Len(request.form("username") > 0 then 'in this line, you have all the conditions that need to be met
error = 0
your code to run the stored procedure and proces the returned values
if there are errors here (record not found, incorrect pasword etc), you set error = 1 and usererror="User not found" or whatever
if there are no errors --> redirect
else ' this means the form wasn't completed right, so we are going to redisplay it, with erromessages
' the simplest way is to display them at the top, but it's much more userfriendly to display them
' alongside the faulty formfields. So i assume you have a table or so here
error = 1
if Len(request.form("username")) = 0
usererror=(" You did not fill in a username.")
end if
same for the password
end if
end if
if flag = 0 or (flag=1 and error = 1) then 'so on firrst parsing or if there's an error
response.write("<form action=""" & Request.ServerVariables ("SCRIPT_NAME") &""" method=""POST"" ... etc ... >")
response.write("<table ....> ...")
response.write("<tr><td>")
if Len(usererror) > 0 then 'this means there is an error for the uservalue
response.write("<font color=""red"">"& usererror & "</font>")
end if
response.write("</td>")
your code for the textfield username. Same for the password.
your code to display the submitbutton and close the table
response.write("<input type=""hidden"" value=""" & flag & """ name=""loginstate""></form>") 'so the second time the page is requested,
the check at the top will return true and the from will be processed
your code to display the submitbutton and close the table
end if
You see? At the top, you check out if the form was corectly filled in (or if it's the first time it is loaded) And depending on that, you run some querys and proces them and redirect, or youstore an errormessage in a variable.
Then you see if a form needs to be displayed (on firt request or if the form isn't filled in correct) and you just place the errormessage in front in the faulty formfield.
At the end of the form, you store the flagvalue in a hidden formfield. So if the form is sumitted, the first check will return false and the form will be processed.
You see?
You can even make this dynamical and run a 'for each loop' on the formscollection to check if all required fields are filled in, if all numeric fields contain numerical values etc. For this, you only need to compose the formfieldnames like strrequser (str = string req = required user=forfield)
Then you can have
for each ffield in request.form
if Mid(ffield,4,3)="req" then
if Len(request.form(ffield)) = 0 then
problem = 1
error = error & "<br />No value given for " & right(ffield, (Len(ffield)-6)) & ". This is a required field"
else
select case Left(ffield, 3)
case str
your string checks
case num
if IsNumeric(ffield)=False then
problem = 1
error = error & "<br />No numerical value given for " & right(ffield, (Len(ffield)-6)) & ". This is a numerical and required field"
your other checks. Maybe some regex's
case dat
if IsDate(ffield)=False then
problem = 1
error = error & "<br />No date value given for " & right(ffield, (Len(ffield)-6)) & ". This is a date and required field"
....
end select
end if
else
your checks for non-required fields
end if
next
You can then print the erromessage on top of the form, or you could make an array of the erromessage variable and print the erromessages in front of the formfields or whatever.
Maybe someone out here wrote some formfield-checking functions you can use