<% Response.Buffer = True Response.ExpiresAbsolute = Now() - 1 Response.Expires = 0 Response.CacheControl = "no-cache" %>
<%=CheckExistingUserAsp_PageTitle%>
<% Domain = Request.Form("Domain") UserName = Request.Form("Username") Password = Request.Form("Password") 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 If(Password <> "") Then If(Password <> Session("Password")) Then LogonDataChanged = true End If Session("Password") = Password End If response.write("
User: " &Server.HTMLEncode(Session("UserName"))& ", Domain: " &Server.HTMLEncode(Session("Domain"))& "
") %>
<% Set Session("SSRPM") = Server.CreateObject("SSRPMCOM.SSRPM") Set Profile = Server.CreateObject("SSRPMCOM.SSRPMProfile") Session("EnrollChoice") = "" Session("SSRPM").Connect SSRPMServer,SSRPMPort RetVal = Session("SSRPM").IsEnrolled(Session("Domain"), Session("UserName"), Session("Password")) 'If question list is variant array or array If(RetVal = 0) Then response.write(CheckExistingUserAsp_InfoText) response.write("
") response.Write("") response.Write("") response.Write("") response.Write("") response.Write("
") response.Write("") response.Write("") response.Write(CheckExistingUserAsp_OptionReenroll) response.Write("
") response.Write("") response.Write("") response.Write(CheckExistingUserAsp_OptionUnenroll) response.Write("
") response.Write("  ") response.Write("") response.write("
") 'Delete or register anew Else Session("EnrollChoice") = "NewUser" 'response.write("new user") 'go to getDatatoenroll.asp Response.Redirect "GetDataToEnroll.asp" End If %>