<% @ LANGUAGE="VBScript" lcid="1036" %>
<%
postid2 = Request.QueryString("postid")
topicid2 = Request.QueryString("topicid")
Nom2=Replace(request.form("Nom"), "'", "''")
Passe2=Replace(request.form("Passe"), "'", "''")
%>
ABB
" text="<% =EnvironnementRes("envtxt") %>" link="<% =EnvironnementRes("envlnk") %>" vlink="<% =EnvironnementRes("envvlnk") %>">
" alt="Retour à la page principale">
Effacer 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") %>)
<%
strPostSQL = "SELECT * FROM Post WHERE postid=" & postid2 & " "
set PostRes=ConnectionBD.Execute(strPostSQL)
SQLStmt3 = "UPDATE Topic "
SQLStmt3 = SQLStmt3 & "SET topicpost = ('" & TopicRes("topicpost") - ( PostRes("postans") + 1 ) & "') "
SQLStmt3 = SQLStmt3 & "WHERE topicid=" & topicid2 & " "
Set RS3 = ConnectionBD.Execute(SQLStmt3)
SQLStmt1 = "DELETE FROM Postcn "
SQLStmt1 = SQLStmt1 & "WHERE postcnpo=" & postid2 & " "
Set RS1 = ConnectionBD.Execute(SQLStmt1)
SQLStmt = "DELETE FROM Post "
SQLStmt = SQLStmt & "WHERE postid=" & postid2 & " "
Set RS = ConnectionBD.Execute(SQLStmt)
%>
Sujet supprimé !
Retour au forum
<% Else %>
Vous n'avez pas le droit de supprimer 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 %>