<% If quoi2 = "modif" Then Titre2=Replace(request.form("Titre"), "'", "''") Desc2=Replace(request.form("Desc"), "'", "''") Suppr2=Replace(request.form("Suppr"), "'", "''") Topic2=Replace(request.form("Topic"), "'", "''") Admin2=Replace(request.form("Admin"), "'", "''") If Suppr2 <> "ON" Then SQLStmt = "UPDATE Topic " SQLStmt = SQLStmt & "SET topicdesc = ('" & Titre2 & "'), topicinfo = ('" & Desc2 & "'), topicadm = (" & Admin2 & ") " SQLStmt = SQLStmt & "WHERE topicid=" & Topic2 & " " Set RS = ConnectionBD.Execute(SQLStmt) %> Modification effectuée <% Else strPostSQL = "SELECT * FROM Post WHERE posttopic=" & Topic2 & " " set PostRes=ConnectionBD.Execute(strPostSQL) Do Until PostRes.EOF = True SQLStmt1 = "DELETE FROM Postcn " SQLStmt1 = SQLStmt1 & "WHERE postcnpo=" & PostRes("postid") & " " Set RS1 = ConnectionBD.Execute(SQLStmt1) PostRes.MoveNext Loop SQLStmt2 = "DELETE FROM Post " SQLStmt2 = SQLStmt2 & "WHERE posttopic=" & Topic2 & " " Set RS2 = ConnectionBD.Execute(SQLStmt2) SQLStmt3 = "DELETE FROM Topic " SQLStmt3 = SQLStmt3 & "WHERE topicid=" & Topic2 & " " Set RS3 = ConnectionBD.Execute(SQLStmt3) %> Sujet supprimé <% End If Else Nom2=Replace(request.form("Nom"), "'", "''") Desc2=Replace(request.form("Desc"), "'", "''") Admin2=Replace(request.form("Admin"), "'", "''") If Nom2<>"" Then SQLStmt18 = "INSERT INTO Topic (topicdesc,topicadm,topicinfo) " SQLStmt18 = SQLStmt18 & "VALUES ('" & Nom2 & "'," & Admin2 & ",'" & Desc2 & "')" Set RS18=ConnectionBD.Execute(SQLStmt18) %> Sujet ajouté <% Else %> Vous devez mettre un nom de thème... <% temps=Now() While DateDiff("s",temps,Now())<3 Wend %> <% End If End If %>
<% longeur1=Len(Nom3) longeur2=Len(Passe2) J=1 For I=1 To longeur2 char1=Mid(Nom3,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