<% if request.form<>"" then Dim login:login = getLoginCookies() Dim userpass,orilogin,isSuccessful:isSuccessful = false Dim objCon, objRS, saltedMd5OriPassword,saltedMd5NewPassword call PGDForm("passChange_",true) 'response.end response.write(OutputCSS()) set objRS = server.createobject("adodb.recordset") with objRS .CacheSize = 150 .open "SELECT userpass, login FROM pgd_members WHERE mem="&memID, datastore, , , adCmdText If not (.EOF or .BOF) then userpass = .fields(0) orilogin = .fields(1) End if .close end with set objRS=nothing saltedMd5OriPassword = hex_md5(orilogin&passChange_oripass) if saltedMd5OriPassword = userpass then isSuccessful = true if isSuccessful then saltedMd5NewPassword = hex_md5(orilogin&passChange_password) SET objCon = server.createObject("ADODB.connection") with objCon .open datastore .execute "Update pgd_members Set userpass='"&saltedMd5NewPassword&"', isMd5=1 WHERE mem="&memID, , adExecuteNoRecords + adCmdtext 'adCmdStoredProc .close end with Set objCon = nothing end if if isSuccessful then call success() else call cancel() end if else %> <%= Application(dbName&"forumtitle") %> <%= NoScript() %> <%= OutputCSS() %> style="margin:0px 0px 0px 0px">
<%= profChangePass %>
><%= changePassOld %> >
><%= changePassNew %> >
><%= changePassConfirm %> >




<%= logForgetEmailbutton %>
<% End If %>