Crear sistema de ejemplos en ASP.

[llanesluna]

Hola.
Quiero crear un sistema de ejemplos en ASP.
Tengo una pag q entraria a una BD en SQL el código.
Luego quiero q ese código se ejecute en una pág pero no me funciona, probé vasrias cosas pero nada.
Lo puedo publicar como texto o dentro de un textarea, pero no logro que se ejecute.
Ejemplo:

<%= "Viva Cuba!"%>

Saldria asi mismo (o sea el código completo), en ves de solamente Viva Cuba! como yo quisiera.

Es posible esto q quiero, teniendo en cuenta que ya tengo el código almacenado en una BD?

Gracias de antemano.

[tammander]

No lo tendrás guardado asi en la BD?

Código:

<%= "Viva Cuba!"%>

Para que se ejecute ASP debes incorporarlo al código antes de enviar la pagina al cliente.

[llanesluna]

no, se guarda asi

<%= "Viva Cuba!"%>

tu propones que deba guardarlo asi en la BD?

&lt;%= &quot;Viva Cuba!&quot;%&gt;

[AlZuwaga]

Hola llanesluna, estuve haciendo unas pruebas que te muestro para que lo adaptes a tus necesidades. Tengo dos archivos: uno que es el que hace el trabajo y el otro que usé como fuente de datos (en tu caso usás una BD para recuperar la información):

Código:

<%
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
	Set leerArchivo = FSO.OpenTextFile(Server.MapPath("fuente.asp"), 1, true)
	codigo = leerArchivo.ReadAll()
	leerArchivo.close
	Set leerArchivo = nothing
Set FSO = Nothing

response.write codigo
response.write "<br>"
execute(codigo)
%>

fuente.asp

Código:

response.write "Viva Cuba!"
response.write "hola"
a=1
if a=0 then
response.write "a vale 0"
else
response.write "a no vale 0"
end if

Esto funciona. La clave, como te habrás dado cuenta, está en hacer uso de la función Execute() para ejecutar "el código" que le llegue como string.

Ahora un par de consideraciones. Según el ejemplo que mostrás en el primer mensaje...

<%= "Viva Cuba!"%>

... vas a tener dos problemas.

1- Deberás eliminar las etiquetas de apertura y cierre de ASP. Esto es fácil... un replace de "<%" y "%>" por nada y listo.

2- el signo "=" usado como response.write no lo reconoce como tal la función Execute(). Pero esto no es tan fácil como hacer un replace de "=" por "response.write" porque el signo "=" también puede ser usado para una asignación o una comparación (de ahí que en el ejemplo coloqué a=1 y if a=0 then)

Ahora te lo dejo a vos ;)
Un saludo

[llanesluna]

Oye amigo no me lo vas a creer pero hize algo parecido antes de leer este post, creando un fichero con el FileSystemObject y AJAX.
Instertandole el cod de la BD directamente al fichero y guardandolo como ASP.

<%
dim fs,tfile
set fs=Server.CreateObject("Scripting.FileSystemObject ")
fichero = server.mappath(".\ejemplos") & "\1.asp"
set tfile=fs.CreateTextFile(fichero)
tfile.WriteLine(ejemplo)
tfile.close
set tfile=nothing
set fs=nothing
%>

Luego lo publiqué en un IFrame en la misma pág.
Me quedó perfecto, aún sigo teniendo problemas con el AJAX q me elimina caracteres cuando paso las variables, pero lo solucione remplazandolas por otras. Si hay alguna solución para la perdida de variables en AJAX lo agradecería eternamente auqne este no sea el post adecuado.

Gracias por tu preocupacion mi hermano.
Saludos