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("%>")