<% Sub ShowResetError(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 -9 response.Write("

" & CommonError_Title_ErrorMinus9 & "



") response.Write("

" & CommonError_Text_ErrorMinus9) Case -11 response.Write("

" & CommonError_Title_ErrorMinus11 & "



") response.Write("

" & CommonError_Text_ErrorMinus11) Case -2147022651 response.Write("

" & CommonError_Title_ErrorMinus2147022651 & "



") response.Write("

" & CommonError_Text_ErrorMinus2147022651) Case -2147016657 response.Write("

" & CommonError_Title_ErrorMinus2147016657 & "



") response.Write("

" & CommonError_Text_ErrorMinus2147016657) Case Else response.Write("

" & CommonError_Text_ErrorResetGeneral & "



") response.Write("

" & CommonError_Title_ErrorResetGeneral) 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 QuestionArrayByVal Dim AnswerArray() Dim AnswerArrayByVal Dim IncorrectAnswerArray QuestionListSize = UBound(Session("QuestionList")) ReDim AnswerArray(QuestionListSize) For i = 0 To QuestionListSize Session("answer" & i) = Request.Form("answer" & i) AnswerArray(i) = Session("answer" & i) Next QuestionArrayByVal = Session("QuestionList") AnswerArrayByVal = AnswerArray RetVal=Session("SSRPM").ResetAccount(QuestionArrayByVal,AnswerArrayByVal,Request.Form("password"),IncorrectAnswerArray) If(RetVal <> 0) Then Session("IncorrectAnswers") = IncorrectAnswerArray call ShowResetError(RetVal) Else response.Write("") response.Write("

" & ResetAsp_SuccessTitle & "

" & ResetAsp_SuccessText & "

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