Escribir en un fichero .txt existente

[igualitoajbs]

Hola, gracias por vuestras respuestas, esto es lo que he hecho:

' Declaracion variables.
Dim objFSO,originalFichero,nuevoFichero

originalFichero = server.mappath("C:\Documents and Settings\jantonio.bernal\Mis documentos\reglamento.txt")
nuevoFichero = server.mappath("C:\Documents and Settings\jantonio.bernal\Mis documentos\nuevoReglamento.txt")

' Crear un obejo FileSystemObject.
Set objFSO = CreateObject("Scripting.FileSystemObject")
' Crear el fichero.
Set nuevoFichero = objFSO.CreateTextFile(nuevoFichero, True)

' Escribir en el fichero.
nuevoFichero.Write (request("reglamento"))

' Cerrar el fichero.
nuevoFichero.Close

' Borrar fichero original.
objFSO.DeleteFile (originalFichero)

' Renombrar el nuevo fichero.
objFSO.MoveFile nuevoFichero, originalFichero

Pero me dice que la direccion para server.mappath debe ser una virtual y no una direccion fisica...??????????, que tengo mal?.

Saludos y gracias, seguire mirando mientras alguien me pueda echar una mano.