" alt="Retour à la page principale"> Ouvrir le Sujet <% If len(Nom2) > 0 Then strAutSQL = "SELECT * FROM Utilisateur WHERE usrlogin='" & Nom2 & "' " set AutRes=ConnectionBD.Execute(strAutSQL) If AutRes.EOF=false Then longeur1=Len(Nom2) longeur2=Len(Passe2) J=1 For I=1 To longeur2 char1=Mid(Nom2,J,1) char2=Mid(Passe2,I,1) char3=Mid(Passe2,I,1) code1=Asc(char1) code2=Asc(char2) code2=code2+code1 If code2>255 Then code2=code2-255 End If char2=Chr(code2) Passe2=Replace(Passe2,char3,char2,1,1) J=J+1 If J>longeur1 Then J=1 End If Next 'Cryptage du mot de passe If AutRes("usrpass") = Passe2 Then strStatSQL = "SELECT * FROM Statut WHERE statid=" & AutRes("usrstatu") & " " set StatRes=ConnectionBD.Execute(strStatSQL) strTopicSQL = "SELECT * FROM Topic WHERE topicid=" & topicid2 & " " set TopicRes=ConnectionBD.Execute(strTopicSQL) If AutRes("usrstatu") = 1 or TopicRes("topicadm")=AutRes("usrid") Then %>

Merci, Votre identité est confirmée : <% =AutRes("usrlogin") %> (<% =StatRes("statdesc") %>) <% SQLStmt = "UPDATE Post " SQLStmt = SQLStmt & "SET postfin=false " SQLStmt = SQLStmt & "WHERE postid=" & postid2 & " " Set RS = ConnectionBD.Execute(SQLStmt) %>

Sujet ouvert !

Retour au forum <% Else %>

Vous n'avez pas le droit d'ouvrir un sujet. <% temps=Now() While DateDiff("s",temps,Now())<3 Wend %> <% End If Else %>

Ce n'est pas le bon mot de passe. <% temps=Now() While DateDiff("s",temps,Now())<3 Wend %> <% End If Else %>

Entrez un nom d'utilisateur valide. <% temps=Now() While DateDiff("s",temps,Now())<3 Wend %> <% End If Else %>

Entrez un nom d'utilisateur valide. <% temps=Now() While DateDiff("s",temps,Now())<3 Wend %> <% End If %>