Подпрограмма ValidationError.
Sub ValidationError(DataFieldsInError)
	Response.Write ?Data Validation Error?
	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