Листинг 5.

Подпрограмма ValidationError.

Sub ValidationError(DataFieldsInError)
	Response.Write ??
	Response.Write ?
Error: Data Missing From Required Field
?
	Response.write ?


?
	Response.Write ?
Please provide data for the following field(s):

?
	Response.Write ?
?

	for k=0 to ubound(DataFieldsInError)
		if DataFieldsInError(k)<>?? then
			
			if isnumeric(datafieldsinerror(k)) then
				Response.Write ?
? & oAuth.DisplayPreDefinedQuestion(DataFieldsInError(k)) & _
  ?

?
			else
				if datafieldsinerror(k)=?C? then
					Response.Write ?
Custom Challenge Question

?
				else
					Response.Write ?
Response to Custom Challenge Question

?
				end if
			end if
		end if
	next
End sub