<% 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") newpasswordcheck=Request.Form("newpasswordcheck") Set passworddatabase=Server.CreateObject("ADODB.Connection") passworddatabase.open "EXCOM" sorgu="select*from ptclecture where userid='"&username&"'" Set usernamerecords=passworddatabase.Execute(sorgu) if usernamerecords.EOF then Response.Redirect "ptc03passchangeentry.asp?changed=false" else TruePassword=trim(usernamerecords("passwordid")) if password=TruePassword then if newpassword=newpasswordcheck then passworddatabase.Execute "UPDATE ptclecture SET passwordid = '"&newpassword&"' WHERE passwordid = '"&password&"'" Response.Redirect "ptc03passchangeentry.asp?changed=true" else Response.Redirect "ptc03passchangeentry.asp?changed=false" End if else Response.Redirect "ptc03passchangeentry.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 "ptc03passentry.asp" End if %>