17/05/2002, 16:35
|
 | Colaborador | | Fecha de Ingreso: febrero-2001 Ubicación: 34.517 S, 58.500 O
Mensajes: 14.550
Antigüedad: 24 años, 2 meses Puntos: 535 | |
| Re: Problemilla con FSO!
Yo lo haría así:
Código:
<%
Email = Request.Form("email")
Dim FSO, Archivo, strContenido
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Archivo = FSO.OpenTextFile(server.mappath("email.txt"),1)
strContenido = Archivo.ReadAll
strContenido = strContenido & vbcrlf & Email
Dim Guardar
Set Guardar = FSO.CreateTextFile(Server.MapPath("email.txt"), TRUE)
Guardar.Write strContenido
Set Guardar = nothing
Set FSO = nothing
Set Archivo = nothing
%>
|