<% Sub ShowEnrollError(ReturnValue) response.Write("") Select Case ReturnValue Case 87 response.Write("

" & CommonError_Title_Error87 & "



") response.Write("

" & CommonError_Text_Error87 ) Case -24 response.Write("

" & CommonError_Title_ErrorMinus24 & "



") response.Write("

" & CommonError_Text_ErrorMinus24 ) Case Else response.Write("

" & CommonError_Title_ErrorEnrollGeneral & "



") response.Write("

" & CommonError_Text_ErrorEnrollGeneral) End Select if(ReturnValue < -50) Then response.Write(" Error (code: 0x" & Hex(ReturnValue) & ")

") Else response.Write(" Error (code: " &ReturnValue& ")

") End if response.Write("  ") response.Write("") End Sub %> <% Response.Buffer = True Response.ExpiresAbsolute = Now() - 1 Response.Expires = 0 Response.CacheControl = "no-cache" %>
<% Dim QuestionArray() Dim AnswerArray() Dim QuestionArrayByVal Dim AnswerArrayByVal ReDim QuestionArray(Session("NrOfMandatoryQuestions") + Session("NrOfAdminQuestions") + Session("NrOfUserQuestions")) ReDim AnswerArray(Session("NrOfMandatoryQuestions") + Session("NrOfAdminQuestions") + Session("NrOfUserQuestions")) For i = 1 To (Session("NrOfMandatoryQuestions") + Session("NrOfAdminQuestions") + Session("NrOfUserQuestions")) Session("question" & i) = Request.Form("question" & i) Session("answer" & i) = Request.Form("answer" & i) QuestionArray(i) = Session("question" & i) AnswerArray(i) = Session("answer" & i) Next QuestionArrayByVal = QuestionArray AnswerArrayByVal = AnswerArray RetVal = Session("SSRPM").Enroll(QuestionArrayByVal,AnswerArrayByVal) If(RetVal <> 0) Then call ShowEnrollError(RetVal) Else response.Write("") response.Write("

" & EnrollAsp_SuccessTitle & "

") response.Write("

" & EnrollAsp_SuccessText & "

") response.Write("  ") response.Write("") Session.Abandon() End if %>