Textarea que acepta codigos HTML

[malex6]

Amigos,

Copie el codigo de los foros Znits, para hacer que mis formularios aceptaran codigos Html y lo logre¡¡¡, salvo un detalle, los acepta como los conocemos <b> hola </b>
<img src="lafoto....>

perdon este es el codigo:
<%
function CleanCode(fString)
fString = replace(fString, "<b>","",1, -1, 1)
fString = replace(fString, "</b>"," ", 1, -1, 1)
fString = replace(fString, "<s>", "", 1, -1, 1)
fString = replace(fString, "</s>", "", 1, -1, 1)
fString = replace(fString, "<u>","", 1, -1, 1)
fString = replace(fString, "</u>","", 1, -1, 1)
fString = replace(fString, "<i>","", 1, -1, 1)
fString = replace(fString, "</i>"," ", 1, -1, 1)
fString = replace(fString, "<font color=red>", "[red]", 1, -1, 1)
fString = replace(fString, "</font id=red>", "[/red]", 1, -1, 1)
fString = replace(fString, "<font color=green>", "[green]", 1, -1, 1)
fString = replace(fString, "</font id=green>", "[/green]", 1, -1, 1)
fString = replace(fString, "<font color=blue>", "[blue]", 1, -1, 1)
fString = replace(fString, "</font id=blue>", "[/blue]", 1, -1, 1)
fString = replace(fString, "<font color=white>", "[white]", 1, -1, 1)
fString = replace(fString, "</font id=white>", "[/white]", 1, -1, 1)
fString = replace(fString, "<font color=purple>", "[purple]", 1, -1, 1)
fString = replace(fString, "</font id=purple>", "[/purple]", 1, -1, 1)
fString = replace(fString, "<font color=yellow>", "[yellow]", 1, -1, 1)
fString = replace(fString, "</font id=yellow>", "[/yellow]", 1, -1, 1)
fString = replace(fString, "<font color=violet>", "[violet]", 1, -1, 1)
fString = replace(fString, "</font id=violet>", "[/violet]", 1, -1, 1)
fString = replace(fString, "<font color=brown>", "[brown]", 1, -1, 1)
fString = replace(fString, "</font id=brown>", "[/brown]", 1, -1, 1)
fString = replace(fString, "<font color=black>", "[black]"

[malex6]

Continuacion :

fString = replace(fString, "</font id=black>", "[/black]", 1, -1, 1)
fString = replace(fString, "<font color=pink>", "[pink]", 1, -1, 1)
fString = replace(fString, "</font id=pink>", "[/pink]", 1, -1, 1)
fString = replace(fString, "<font color=orange>", "[orange]", 1, -1, 1)
fString = replace(fString, "</font id=orange>", "[/orange]", 1, -1, 1)
fString = replace(fString, "<font color=gold>", "[gold]", 1, -1, 1)
fString = replace(fString, "</font id=gold>", "[/gold]", 1, -1, 1)
fString = replace(fString, "<h1>", "[h1]", 1, -1, 1)
fString = replace(fString, "</h1>", "[/h1]", 1, -1, 1)
fString = replace(fString, "<h2>", "[h2]", 1, -1, 1)
fString = replace(fString, "</h2>", "[/h2]", 1, -1, 1)
fString = replace(fString, "<h3>", "[h3]", 1, -1, 1)
fString = replace(fString, "</h3>", "[/h3]", 1, -1, 1)
fString = replace(fString, "<h4>", "[h4]", 1, -1, 1)
fString = replace(fString, "</h4>", "[/h4]", 1, -1, 1)
fString = replace(fString, "<h5>", "[h5]", 1, -1, 1)
fString = replace(fString, "</h5>", "[/h5]", 1, -1, 1)
fString = replace(fString, "<h6>", "[h6]", 1, -1, 1)
fString = replace(fString, "</h6>", "[/h6]", 1, -1, 1)
fString = replace(fString, "<font size=1>", "[size=1]", 1, -1, 1)
fString = replace(fString, "</font id=size1>", "[/size=1]", 1, -1, 1)
fString = replace(fString, "<font size=2>", "[size=2]", 1, -1, 1)
fString = replace(fString, "</font id=size2>", "[/size=2]", 1, -1, 1)
fString = replace(fString, "<font size=3>", "[size=3]", 1, -1, 1)
fString = replace(fString, "</font id=size3>", "[/size=3]", 1, -1, 1)
fString = replace(fString, "<font size=4>", "[size=4]", 1, -1, 1)
fString = replace(fString, "</font id=size4>", "[/size=4]", 1, -1, 1)
fString = replace(fString, "<font size=5>", "[size=5]", 1, -1, 1)
fString = replace(fString, "</font id=size5>", "[/size=5]", 1, -1, 1)
fString = replace(fString, "<font size

[malex6]

continuacion:
fString = replace(fString, "<br>","[br]", 1, -1, 1)
fString = replace(fString, "<div align=left>", "

", 1, -1, 1)
fString = replace(fString, "</div id=left>", "

", 1, -1, 1)
fString = replace(fString, "<center>","", 1, -1, 1)
fString = replace(fString, "</center>","", 1, -1, 1)
fString = replace(fString, "<div align=right>", "

", 1, -1, 1)
fString = replace(fString, "</div id=right>", "

", 1, -1, 1)
fString = replace(fString, "<ul>","

• ", 1, -1, 1)
  fString = replace(fString, "</ul>","

", 1, -1, 1)
fString = replace(fString, "<ol type=1>","[list=1]", 1, -1, 1)
fString = replace(fString, "</ol id=1>","[/list=1]", 1, -1, 1)
fString = replace(fString, "<ol type=a>","[list=a]", 1, -1, 1)
fString = replace(fString, "</ol id=a>","[/list=a]", 1, -1, 1)
fString = replace(fString, "<li>","[*]", 1, -1, 1)
fString = replace(fString, "</li>","[/*]", 1, -1, 1)
fString = replace(fString, "<BLOCKQUOTE id=quote><font size=" & strFooterFontSize & " face=""" & strDefaultFontFace & """ id=quote>quote:<hr height=1 noshade id=quote>","

", 1, -1, 1)
fString = replace(fString, "<hr height=1 noshade id=quote></BLOCKQUOTE id=quote></font id=quote><font face=""" & strDefaultFontFace & """ size=" & strDefaultFontSize & " id=quote>","

", 1, -1, 1)
fString = replace(fString, "<pre id=code><font face=courier size=" & strDefaultFontSize & " id=code>","

Código:

", 1, -1, 1)
			fString = replace(fString, "</font id=code></pre id=code>","

", 1, -1, 1)
fString = replace(fString,"<a href='","",1,-1,1)
fString = replace(fString,"</a>","",1,-1,1)
fString = replace(fString, "<img src=""","[img]",1,-1,1)
fString = replace(fString, "<img align=right src=""","[img=right]",1,-1,1)
fString = replace(fString, "<img align=left src=""","[img=left]",1,-1,1

[malex6]

Ufff, no pense que iba a ocupar tanto:

Bueno para luego decir al textarea
<textarea name="etcetc" cols="30"><%=Trim(CleanCode(TxtMsg ))%></textarea>
bien el problema es que no reemplaza

por ejemplo si coloco [img]
no tiene idea de que se trata...

que hize mal?


saludos


<img src="http://www.univercity.cl/imagenes/malex6.gif">

[fjsg2286]

hola, no lo he mirado mucho, pero desde luego tienes un problemita, fijate bien donde tienes las lineas de img, utilizas 3 comillas dobles seguidas &quot;&quot;&quot;, y eso da problemas, para estos casos utiliza comillas simples para encerrar las dobles, o viceversa, sino lo entiendes, me mandas el codigo y te lo arreglo.
[email protected]