Mostrar Codigo fuente

[virla]

Como es que se hace para mostrar codigo fuente en un textbox multilinea?

[djmortal]

Tratalo como si de un fichero de texto se tratase

<%
Dim fso, tsm, value
Set fso = Server.CreateObject("Scripting.FileSystemObject")

if request.form("texto") <> "" then
value = request.Form("texto")
Set tsm = fso.CreateTextFile(Server.MapPath("../../../config/" & archivito),true)
tsm.Writeline(value)
tsm.Close
Set tsm = Nothing
Set fso = Nothing
value= ""
response.Redirect("modificar.asp?archivo=" & request.QueryString("archivo") & "&estado=Modificado" )

else


Set tsm = fso.OpenTextFile (Server.MapPath("../../../config/" & archivito),1,false)
value = Trim(tsm.ReadAll)
tsm.Close
contenido = (value)

Set tsm = Nothing
Set fso = Nothing
end if
%>

<textarea name="texto" cols="100" rows="30" wrap="PHYSICAL" class="contenido" id="textarea"><%=contenido%></textarea></td>

Asi lo tengo yo echo en un editor para los configuradores de la pagina en plan campechano

[virla]

el texto que tiene que ir ya lo tengo, solo quiero que se vea como codigo fuente ya que si lo agrego normalmente me salen otros signos que no quiero.
no tengo que traerlo de otra pagina, ni nada, solo mostrarlo directamente

[virla]

alguien que me diga como mostrar un codigo fuente dentro de un textbox para que otros puedan copiarlo. como se hace aqui en el foro cuando ponemos ['code']['/code']
alguna ayuda o sugerencia?

[djmortal]

tal y como yo ter estoy indicando te muestra el codigo fuente a pelo dentro de un texbox yo creo ke es lo ke estas buscando se ve igual ke en dreamweaver ni caracteres distintos ni nada

[virla]

pero no quiero tener el codigo dentro de un archivo de texto, no hay alguna forma de poner todo em una variable y despues hacer que lo muestre?

[virla]

nadie sabe como hacer esto? algo parecido a lo que aca hacemos para pegar codigo ['code']['/code'], pero lo que yo necesito es que este codigo lo ponga yo para que otros puedan copiarlo sin tener que editarlo o sacarlo de una base de datos sino directamente que este fijo en la pagina

[AlZuwaga]

Hacé esta prueba:

<%
var_html = "<a href=""http://www.google.com"" target=""_blank"">ir a google</a>"

var_txt = Server.HTMLEncode(var_html)

Response.Write var_html
Response.Write "<br>"
Response.Write var_txt
%>

Aunque no me quedó claro si es lo que estaás buscando

[virla]

perfecto era eso lo que estaba buscando
muchas gracias por tu ayuda