Como hacer que una pagina asp cree otra pagina asp automaticamente

[edmyjose]

Hola he estado tratando de crear una pagina asp que cree autmaticamente otra pagina asp y he usado este codigo me da error en la parte de ts.write("<% diciendo Constante de cadena sin terminar

<%
set fs = Server.CreateObject ("Scripting.FileSystemObject")
set ts = fs.CreateTextFile( Server.MapPath("\hola.txt"))
on error resume next
if rr.number=0 then
ts.write("<%
set fs = Server.CreateObject ('Scripting.FileSystemObject')
set ts = fs.CreateTextFile( Server.MapPath('\hola.txt'))
on error resume next
if rr.number=0 then
ts.write('Esto es un texto')
end if
%>")
end if
%>

gracias a los que puedan ayudarme

[daniel00]

Recuerda que en VBScript la terminación de una línea de código es la misma línea, entonces tienes que poner todo esto en la misma línea:

Código:

ts.write("<%
set fs = Server.CreateObject ('Scripting.FileSystemObject')
set ts = fs.CreateTextFile( Server.MapPath('\hola.txt'))
on error resume next
if rr.number=0 then
ts.write('Esto es un texto')
end if
%>")

O bien:

Código:

ts.write("<%")
ts.write("set fs = Server.CreateObject ('Scripting.FileSystemObject')")
ts.write("set ts = fs.CreateTextFile( Server.MapPath('\hola.txt'))")
ts.write("on error resume next")
ts.write("if rr.number=0 then")
ts.write("ts.write('Esto es un texto')")
ts.write("end if")
ts.write("%>")

[Adler]

Hola

Prueba así

Código asp:

final_bloke = "%"
final_bloke = final_bloke & ">"
 
ts.writeline("<%")
ts.writeline("set fs = Server.CreateObject (""Scripting.FileSystemObject"")")
ts.writeline("set ts = fs.CreateTextFile( Server.MapPath(""\hola.txt""))")
ts.writeline("on error resume next")
ts.writeline("if rr.number=0 then")
ts.writeline("ts.write(""Esto es un texto"")")
ts.writeline("end if")
ts.writeline final_bloke
 

Suerte