Subversion Repositories DevTools

Rev

Rev 119 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 119 Rev 1376
Line 59... Line 59...
59 
End Sub
 59 
End Sub
60 
%>
 60 
%>
61 
<%
 61 
<%
62 
'--- Process submition ---
 62 
'--- Process submition ---
63 
If CBool(QStrPar("action")) Then
 63 
If CBool(QStrPar("action")) Then
64 
	' All mendatory parameters FOUND
 64 
	' All mandatory parameters FOUND
65 
	Call Change_Password ( UserDetails ("user_id"), Request("FRoldpassword"), Request("FRpassword") )
 65 
	Call Change_Password ( UserDetails ("user_id"), Request("FRoldpassword"), Request("FRpassword") )
66
66
67
67
68 
	Response.Redirect("message.asp?msg=200-7")
 68 
	Response.Redirect("message.asp?msg=200-7")
69 
End If
 69 
End If