<% function rdb_txt(champ) If champ <> "" Then chn = Server.HTMLEncode(champ) tab = Split(chn, vbCrLf) n = UBound(tab) For i = 0 to n chaine = chaine + tab(i) chaine = chaine + "<BR>" Next rdb_txt = chaine End If end function %> <html> <head> <title>Test Textarea</title> </head> <body> <% if len(request.form("TEXTAREA")) > 0 then message = rdb_txt(request.form("TEXTAREA")) response.write message else %> <form action = "test.asp" method="post"> <textarea rows="4" name="TEXTAREA" cols="55"></textarea> <input name="validation" type="submit" value="Validez"> </form> <% end if %> </body> </html>
a mon avis avec chn = replace ( chn , vbCrLf , "<br>" ) ca serai mieux mais ca revient au mêmehachou
Bien pratique, surtout lors de l'ajout dans une base SQL. La remarque de hachou est bonne, je suis assez d'accord. Je pensais qu'on pouvait faire plus simple encore... mais...A ce propos quand j'ajoute mon message, il est stocké comment. A priori il prend les <b>retours chariots</b>.
Mais il ne prend pas les balise html. OK.
vous avez sans doute compris pourquoi tous ces 'c' c que lorsqu'on saisit ds le champ en maintenant une touche sans aller a la ligne avec la touche entrer c ce qui se pqsse
on pourrais remplacer tous ce code par un autre plus simple comme celui-ci :# <html># <head># <title>Test Textarea</title># </head># <body># <%# if len(request.form("TEXTAREA")) > 0 then# message = replace(request.form("TEXTAREA"), vbCrLf, "<br>")# response.write message# end if# %># <form action = "test.asp" method="post"># <textarea rows="4" name="TEXTAREA" cols="55"></textarea># <input name="validation" type="submit" value="Validez"># </form>## </body></html>
tout-a-fais dacords avec toi Hamid, il est vraiment très simple votre code. Bravos une autre fois
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte
1 872 790 membres 212 nouveaux aujourd'hui 16 150 membres club