| Change password |
<%
varpass = RTrim(LTrim(Request.Form ("oldPass")))
varnewpass = RTrim(LTrim(Request.Form ("pass")))
Call Connjunooni(Conn)
sql = "Select * from users where username = '"&username&"'"
Set RstObj = Conn.Execute(sql)
varoldpass = RstObj("Password")
if varoldpass = varpass Then
%>
<%
editsql = "Update users Set [Password]='"&varnewpass&"' Where Username = '" &username& "'"
Conn.Execute(editsql)
Response.Write "Your password has been changed."
Else
Response.Write "Sorry!Your old password is incorrect."
End if
%>
|
|