<% Sub ShowGetDataToResetError(ReturnValue) response.Write("") Select Case ReturnValue Case -2 response.Write("

" & CommonError_Title_ErrorMinus2 & "



") response.Write("

" & CommonError_Text_ErrorMinus2) Case -12 response.Write("

" & CommonError_Title_ErrorMinus12 & "



") response.Write("

" & CommonError_Text_ErrorMinus12) Case -13 response.Write("

" & CommonError_Title_ErrorMinus13 & "



") response.Write("

" & CommonError_Text_ErrorMinus13) Case -14 response.Write("

" & CommonError_Title_ErrorMinus14 & "



") response.Write("

" & CommonError_Text_ErrorMinus14) Case -16 response.Write("

" & CommonError_Title_ErrorMinus16 & "



") response.Write("

" & CommonError_Text_ErrorMinus16) Case -29 response.Write("

" & CommonError_Title_ErrorMinus29 & "



") response.Write("

" & CommonError_Text_ErrorMinus29) Case -30 response.Write("

" & CommonError_Title_ErrorMinus30 & "



") response.Write("

" & CommonError_Text_ErrorMinus30) Case -31 response.Write("

" & CommonError_Title_ErrorMinus31 & "



") response.Write("

" & CommonError_Text_ErrorMinus31) Case -32 response.Write("

" & CommonError_Title_ErrorMinus32 & "



") response.Write("

" & CommonError_Text_ErrorMinus32) Case 5 response.Write("

" & CommonError_Title_Error5 & "



") response.Write("

" & CommonError_Text_Error5) Case 1168 response.Write("

" & CommonError_Title_Error1168 & "



") response.Write("

" & CommonError_Text_Error1168) Case 1355 response.Write("

" & CommonError_Title_Error1355 & "



") response.Write("

" & CommonError_Text_Error1355) Case 8470 response.Write("

" & CommonError_Title_Error8470 & "



") response.Write("

" & CommonError_Text_Error8470) Case -2147023541 response.Write("

" & CommonError_Title_ErrorMinus2147023541 & "



") response.Write("

" & CommonError_Text_ErrorMinus2147023541) Case -2147016426 response.Write("

" & CommonError_Title_ErrorMinus2147016426 & "



") response.Write("

" & CommonError_Text_ErrorMinus2147016426) Case -2147024891 response.Write("

" & CommonError_Title_ErrorMinus2147024891 & "



") response.Write("

" & CommonError_Text_ErrorMinus2147024891) Case Else response.Write("

" & CommonError_Title_ErrorGetDataToResetGeneral & "



") response.Write("

" & CommonError_Text_ErrorGetDataToResetGeneral) 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 Sub AddAnswer(i,ProfileOptions) response.Write("") If((ProfileOptions And 1048576) <> 0) Then Session("answer" & i) = "" End If If(ProfileOptions And 128) Then response.Write("") Else response.Write("") End If End Sub Sub ShowQuestions(ProfileOptions,QuestionList) QuestionListSize = UBound(QuestionList) For i = 0 To QuestionListSize response.Write("
" & CommonLabel_Question & " " &i + 1& ":
") If(IsIncorrectQuestion(QuestionList(i))) Then response.Write("
" &QuestionList(i)& "
") Else response.Write("
" &QuestionList(i)& "
") End If call AddAnswer(i,ProfileOptions) Next End Sub Function IsIncorrectQuestion(Question) If(Session("SSRPM").GetResetProfileOptions() And 1048576) Then Exit Function End If IsIncorrectQuestion = 0 If(Session("SSRPM").GetResetProfileOptions() And 32) Then Dim IncorrectAnswers IncorrectAnswers = Session("IncorrectAnswers") IncorrectAnswerListSize = 0 If(Session("IncorrectAnswersAvailable") = 1) Then IncorrectAnswerListSize = UBound(IncorrectAnswers) End If If(Session("IncorrectAnswersAvailable") = 1) Then For j = 0 To IncorrectAnswerListSize If(IncorrectAnswers(j) = Question) Then IsIncorrectQuestion = 1 Exit Function End If Next End If End If Exit Function End Function Sub ShowPasswordComplexityRules() If(Session("SSRPM").GetResetProfileOptions() And 64) Then Dim MinimumPasswordLength Dim PasswordComplexityEnabled MinimumPasswordLength = 0 PasswordComplexityEnabled = 0 RetVal=Session("SSRPM").GetPasswordComplexityRules(MinimumPasswordLength,PasswordComplexityEnabled) If(RetVal = 0) Then response.Write("
") If(MinimumPasswordLength > 0) Then response.Write("

" & FormatText(GetDataToResetAsp_PwdComplexityTextLength, MinimumPasswordLength) & "

") End If if(PasswordComplexityEnabled = 1) Then response.Write("

" & GetDataToResetAsp_PwdComplexityTextCategory & "

") response.Write("

" & GetDataToResetAsp_PwdComplexityTextCharacters & "

") response.Write("

" & GetDataToResetAsp_PwdComplexityTextSimilarity & "

") End If response.Write("
") End If End If End Sub %> <% Response.Buffer = True Response.ExpiresAbsolute = Now() - 1 Response.Expires = 0 Response.CacheControl = "no-cache" %>
<%=GetDataToResetAsp_PageTitle%>
<% Domain = Request.Form("Domain") UserName = Request.Form("Username") LogonDataChanged = false If(Domain <> "") Then If(Domain <> Session("Domain")) Then LogonDataChanged = true End If Session("Domain") = Domain End If If(UserName <> "") Then If(UserName <> Session("UserName")) Then LogonDataChanged = true End If Session("UserName") = UserName End If response.write("
" & CommonLabel_User & ": " &Server.HTMLEncode(Session("UserName"))& ", " & CommonLabel_Domain & ": " &Server.HTMLEncode(Session("Domain"))& "
") %>
<% Dim QuestionList Set Session("SSRPM") = Server.CreateObject("SSRPMCOM.SSRPM") Session("SSRPM").Connect SSRPMServer,SSRPMPort RetVal=Session("SSRPM").GetResetData(Session("Domain"),Session("UserName"),QuestionList) If(RetVal <> 0) Then call ShowGetDataToResetError(RetVal) Else response.Write("

" & GetDataToResetAsp_InfoText & "

") response.Write("
") Session("QuestionList") = QuestionList ShowQuestions Session("SSRPM").GetResetProfileOptions(),QuestionList response.Write("
") call ShowPasswordComplexityRules() response.Write("") response.Write("") response.Write("") response.Write("") response.Write("  ") response.Write("  ") response.Write("
") End If %>