<%
Dim nombreFichero, objFSO, lineas, i, obj
nombreFichero=Server.MapPath("MiFichero") ' Archivo a Utilizar
'########### ACTUALIZAR ############
Set objFSO=Server.CreateObject("Scripting.FileSystemOb ject")
If Request.Form("actualizar")<>"" Then
lineas=Split(Request.Form("texto"),vbCrLf)
Set objTextStream=objFSO.OpenTextFile(nombreFichero,2)
For i=0 To UBound(lineas)
objTextStream.WriteLine lineas(i)
Next
objTextStream.Close
'######## AÑADIR ############
ElseIf Len(Request.Form("anyadir")) Then
lineas=Split(Request.Form("texto"),vbCrLf)
'Set objTextStream = objFSO.OpenTextFile(nombreFichero,8,False)
Set objTextStream = objFSO.OpenTextFile(nombreFichero,8,True)
For i=0 To UBound(lineas)
objTextStream.WriteLine lineas(i)
Next
objTextStream.Close
End If
'############ BORRAR #############
If Len(Request.Form("borrar")) Then
Set objTextStream=objFSO.OpenTextFile(nombreFichero,2)
objTextStream.Close
End If
%>
<FORM ACTION="<%=Request.ServerVariables("SCRIPT_NAME")% >" METHOD="POST">
Los contenidos del fichero <B><%=nombreFichero%></B> son:<P>
<TEXTAREA NAME="texto" ROWS="19" COLS="74" style="font-family: Verdana;">
<%
If Not objFSO.FileExists(nombreFichero) Then
objFSO.CreateTextFile(nombreFichero)
End if
Set objTextStream=objFSO.OpenTextFile(nombreFichero, 1, true)
While Not objTextStream.AtEndOfStream
Response.Write objTextStream.ReadLine &vbCrLf
Wend
objTextStream.Close
%>
</TEXTAREA>
<br>
<INPUT TYPE="SUBMIT" NAME="actualizar" VALUE="Actualizar">
<INPUT TYPE="SUBMIT" NAME="anyadir" VALUE="Añadir">
<INPUT TYPE="SUBMIT" NAME="borrar" VALUE="Borrar">
</FORM>
Espero que sea lo que necesittas
Un saludo