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 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