<% Const adOpenForwardOnly = 0 Const adOpenKeyset = 1 Const adOpenDynamic = 2 Const adOpenStatic = 3 Const adLockReadOnly = 1 Const adLockPessimistic = 2 Const adLockOptimistic = 3 Const adLockBatchOptimistic = 4 Set dcnDB = Server.CreateObject("ADODB.Connection") %> <% usager = Request.Form("txtusername") mp1 = Request.Form("txtpassword1") mp2 = Request.Form("txtpassword2") vf = Request.Form("suppression_autorisee") dcnDB.Open strDatabaseLocation strSQL = "SELECT COUNT(*) FROM Usagers WHERE Usager LIKE '" & Request.Form("txtusername") & "' AND motdepasse LIKE '" & mp1 & "'" Set rsProd = dcnDB.Execute(strSQL) erreur = 0 If (rsProd(0) = 0) Then erreur = 1 else strSQL = "SELECT * FROM Usagers WHERE Usager LIKE '" & usager & "' AND motdepasse LIKE '" & mp1 & "'" Set rsProd = dcnDB.Execute(strSQL) dcnDB.Execute "UPDATE USAGERS set motdepasse = '" & mp2 & "' WHERE Usager LIKE '" & usager & "' AND motdepasse LIKE '" & mp1 & "'" dcnDB.Execute "UPDATE USAGERS set suppression_autorisee = '" & vf & "' WHERE Usager LIKE '" & usager & "' AND motdepasse LIKE '" & mp1 & "'" end if %> <% if (erreur = 0) then response.write "

Changement de mot de passe effectué.

" end if if (erreur = 1) then response.write "

Ce nom d'usager avec ce mot de passe n'existent pas
dans la base de données.

" end if %> <% rsProd.Close dcnDB.Close %>