Mostrar Codigo fuente

[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