Bueno, no se exactamente lo que quieras hacer, pero podrías crear un archivo asp mediante el FileSystemObject, como si crearas un archivo de texto y puedes escribir en él...
path= Server.Mappath("/ruta")
Set fso= Server.CreateObject("Scripting.FileSystemObject")
escribeSTR="<%" + "Response.Write" + " " + chr(34) + "Hola Mundo" + chr(34) + "%>" + vbCrLf
Set miArchivo=fso.CreateTextFile(path & "\prueba.asp", true)
miArchivo.Write(escribeSTR)
El resultado de esto sería generar un archivo prueba.asp que a su vez tiene un Response.Write "Hola Mundo"...bueno al menos eso creo
