<% @ LANGUAGE="VBScript" lcid="1036" %> <% postid2 = Request.QueryString("postid") topicid2 = Request.QueryString("topicid") postcnid2 = Request.QueryString("postcnid") strTopicSQL = "SELECT topicdesc FROM Topic WHERE topicid=" & topicid2 & " " set TopicRes=ConnectionBD.Execute(strTopicSQL) strPostSQL = "SELECT * FROM Post WHERE postid=" & postid2 & " " set PostRes=ConnectionBD.Execute(strPostSQL) strContSQL = "SELECT * FROM Postcn WHERE postcnid=" & postcnid2 & " " set ContRes=ConnectionBD.Execute(strContSQL) Message2=ContRes("postcncn") Message2=Replace(Message2, "
", vbcrlf) 'Transformation des
en retours charriot If EnvironnementRes("envhtml")=false Then Message2=Replace(Message2, "<", "<") Message2=Replace(Message2, ">", ">") End If 'Si le code HTML est interdi, transformation des < et > par leur équivalents HTML pour bloquer le code. If EnvironnementRes("envabb")=true Then Message2=Replace(Message2, "", """]") Message2=Replace(Message2, "", "[/url]") Message2=Replace(Message2, " ", ":)") Message2=Replace(Message2, " ", ":(") Message2=Replace(Message2, " ", ";)") Message2=Replace(Message2, " ", ":D") Message2=Replace(Message2, " ", ":o") Message2=Replace(Message2, "", "[/img]") Message2=Replace(Message2, "", "[b]") Message2=Replace(Message2, "", "[/b]") Message2=Replace(Message2, "", "[i]") Message2=Replace(Message2, "", "[/i]") Message2=Replace(Message2, "", "[u]") Message2=Replace(Message2, "", "[/u]") Message2=Replace(Message2, "
", "[code]")
		Message2=Replace(Message2, "
", "[/code]") Message2=Replace(Message2, "", "[/list]") Message2=Replace(Message2, "", "[/list=A]") Message2=Replace(Message2, "", "[/list=1]") 'Transformation des codes ABB en HTML. End If 'Si le code ABB est autorisé, effecuter les transformations adéquates. %> ABB " text="<% =EnvironnementRes("envtxt") %>" link="<% =EnvironnementRes("envlnk") %>" vlink="<% =EnvironnementRes("envvlnk") %>">
" alt="Retour à la page principale"> Message "<% =PostRes("posttitle") %>" du groupe "<% =TopicRes("topicdesc") %>"

profil | s'enregistrer | préférences | faq | rechercher

 

" width="30%" valign="top">Votre nom d'utilisateur : " width="70%">">
" width="30%" valign="top">Votre mot de passe : " width="70%">">
" width="30%" valign="top">Message à éditer :

Code ABB : <% If EnvironnementRes("envabb")=true Then %>Oui<% Else %>Non<% End If %>
Code HTML : <% If EnvironnementRes("envhtml")=true Then %>Oui<% Else %>Non<% End If %>

 " width="70%">
" width="30%" valign="top">Options : " width="70%"><% If EnvironnementRes("envsign")=true Then %>Signature<% End If %>

Effacer le message (seuls les administrateurs ont le droit de supprimer les messages)