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