<% Choice1=Request.Form("CHANGE") Choice2=Request.Form("EXIT") If Choice1="CHANGE PASSWORD" then username=Request.Form("username") password=Request.Form("password") newpassword=Request.Form("newpassword") Set passworddatabase=Server.CreateObject("ADODB.Connection") passworddatabase.open "paperRAD01" sorgu="select*from password where userid='"&username&"'" Set usernamerecords=passworddatabase.Execute(sorgu) if usernamerecords.EOF then Response.Redirect "passchangeentry.asp?changed=false" else TruePassword=trim(usernamerecords("passwordid")) if password=TruePassword then passworddatabase.Execute "UPDATE password SET passwordid = '"&newpassword&"' WHERE passwordid = '"&password&"'" Response.Redirect "passchangeentry.asp?changed=true" else Response.Redirect "passchangeentry.asp?changed=false" End if End if usernamerecords.Close Set usernamerecords=Nothing passworddatabase.Close Set passworddatabase=nothing End if If Choice2="EXIT" then Response.Redirect "passentry.asp" End if %>