Subversion Repositories DevTools

Rev

Rev 1281 | Rev 1499 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1281 Rev 1337
Line 46... Line 46...
46 
End Sub
 46 
End Sub
47 
%>
 47 
%>
48 
<%
 48 
<%
49 
'--- Process submition ---
 49 
'--- Process submition ---
50 
If CBool(QStrPar("action")) Then
 50 
If CBool(QStrPar("action")) Then
51 
	' All mendatory parameters FOUND
 51 
	' All mandatory parameters FOUND
52 
	Call Update_LogIn_Details ( objAccessControl.UserId, QStrPar("FRpassword"))
 52 
	Call Update_LogIn_Details ( objAccessControl.UserId, QStrPar("FRpassword"))
53 
	Session.Abandon
 53 
	Session.Abandon
54 
	Response.Redirect("message.asp?msg=200-9")
 54 
	Response.Redirect("message.asp?msg=200-9")
55 
End If
 55 
End If
56 
%>
 56 
%>