Hola, en esta función sólo debes pasarle el nombre del archivo y su contenido y asunto resuelto.
<pre>
Sub NuevoArchivo(cArchi, cCuerpo)
'Crea o modifica un archivo de texto
Dim oSFile, oTextArch
Set oSFile = Server.CreateObject("Scripting.FileSystemObje ct")
Set oTextArch = oSFile.CreateTextFile (Server.MapPath("Archivos/" & cArchi & ".txt"), True)
oTextArch.WriteLine(cCuerpo)
Set oSFile = Nothing
oTextArch.Close: Set oTextArch = Nothing
End Sub
</pre>
Espero te ayude, un saludo. ;)
<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red"></a>