|
<%
'Declare variables
Dim sSQL, updatepass, iID
Dim username, password
username = Replace(Request.Form("admin_user"),"'","''")
password = Replace(Request.Form("admin_pass"),"'","''")
'build the SQL statement like '%%"& u_input & "%%'
sSQL = "UPDATE settings SET admin_pass='" & password & "' WHERE admin_user like '%%"& username & "%%'"
'Create an instance of an ADO connection object
Set updatepass=Server.CreateObject("ADODB.Connection")
'Open the connection
updatepass.Open(Conn)
'Execute the SQL
updatepass.execute(sSQL)
'Close the resources and free up resources
updatepass.Close
Set updatepass=Nothing
response.write"Your password has been changed"
%>
|
||||||
| © Copyright 2007 | |||||||