<% @ LANGUAGE="VBScript" lcid="1036" %> <% Nom2=Replace(request.QueryString("Nom"), "'", "''") Passe2=Replace(request.QueryString("Passe"), "'", "''") strStatSQL = "SELECT * FROM Statut ORDER BY statnbpost, statid" set StatRes=ConnectionBD.Execute(strStatSQL) %> ABB " text="<% =EnvironnementRes("envtxt") %>" link="<% =EnvironnementRes("envlnk") %>" vlink="<% =EnvironnementRes("envvlnk") %>"> <% If len(Nom2) > 0 Then strAutSQL = "SELECT * FROM Utilisateur WHERE usrlogin='" & Nom2 & "' " set AutRes=ConnectionBD.Execute(strAutSQL) If AutRes.EOF=false Then If AutRes("usrpass") = Passe2 Then If AutRes("usrstatu") = 1 Then %>

Statuts

Modifier / Supprimer des statuts :

<% Do Until StatRes.EOF = True %> <% If StatRes("statnbpost")>0 or StatRes("statid")<4 Then %> <% End If %> "> <% StatRes.MoveNext %> <% Loop %>
">Statut : ">Nombre de messages à envoyer pour atteindre ce statut : ">Supprimer ? "> 
">"> ">"> "><% If StatRes("statid")>3 Then %><% End If %> ">

 

Ajouter un statut :

">Statut : ">Nombre de messages à envoyer pour atteindre ce statut : ">
"> "> ">
 

<% 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<0 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 'Dé-Cryptage du mot de passe %> Retour au menu d'administration <% Else %>

Vous n'avez pas le droit d'administrer le forum. <% 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 %>