Soyez le premier à donner votre avis sur cette source.
Snippet vu 19 412 fois - Téléchargée 38 fois
<% 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>
22 mai 2007 à 15:17
Bravos une autre fois
22 mai 2007 à 15:07
# <html>
# <head>
# <title>Test Textarea</title>
# </head>
#
# <%
# if len(request.form("TEXTAREA")) > 0 then
# message = replace(request.form("TEXTAREA"), vbCrLf, "
")
# response.write message
# end if
# %>
# <form action = "test.asp" method="post">
# <textarea rows="4" name="TEXTAREA" cols="55"></textarea>
#
# </form>
#
# </html>
1 mars 2007 à 20:00
25 févr. 2003 à 21:51
25 févr. 2003 à 21:50
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 retours chariots.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.