LISTING 5: ValidationError Subroutine 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