Ayuda Please

[Darhas]

'---------------------------------------------------
' SUBRUTINA
'---------------------------------------------------

' Escribir Configuración meterlos en un TXT.

Function EscribirConfiguracion(saltos, premio)
set FSO = CreateObject ("Scripting.FileSystemObject")
set Escribir = FSO.OpenTextFile("c:\Inetpub\wwwroot\prueba\config uracion.txt",2)
' set Escribir = FSO.OpenTextFile("c:\Inetpub\wwwroot\prueba\config uracion.txt",8)
a = 0
Do While not (a = saltos)
Do While not (a = saltos)
prueba = Leer.ReadLine()
a = a + 1
Loop
Escribir.WriteLine (premio)
Loop
Escribir.Close
Leer.Close
set Leer = Nothing
set Escribir = Nothing
End Function


'---------------------------------------------------
' PROGRAMA
'---------------------------------------------------
Premio1_D = Request.Form("Premio1_D")

saltos = 3
a = EscribirConfiguracion(saltos, Premio1_D)

Hola a todos, antes de nada decir que sois unos artistas y dar las gracias por la ayuda que me

estais aportando

Bueno a lo que iba, quiero editar un TXT, una linea concreta. Con el codigo que os dejo para que

lo mireis, solo consigo que borre todo el contenido del TXT y que inserte el valor de la

variable Premio1_D en la primera linea.

La idea es, con la variable SALTOS pasarle que linea del TXT deseo Editar o mejor dicho

sustituir por el valor de la variable Premio1_D, pero como podeis ver por mi mail no lo consigo.

Tambien intente abrir el fichero con: set Escribir = FSO.OpenTextFile("c:\Inetpub\wwwroot\prueba\config uracion.txt",8), pero como es lógico solo conseguia insertar datos en la ultima linea, no se si la solucion pasa por ahi.

Bueno eso es todo, a quien me pueda ayudar muchas gracias y un abrazo
Darhas