Como se hace...!!!! urgente

[cmartinezc75]

Hola que tal a todos..

Tengo un pequeño problemita..

Necesito.. mandar a escribir en un archivo de texto.. un parametro.. . .ya lo hago.. pero lo hace de manera automatica cuando acceso.. a esa pagina asp. y lo que yo necesito es ejecutarla.. yo con algun boton.. en cualquier momento... es decir.. que mi objeto.. FileSystemObject.. debe estar dentro de un escript. para que lo haga... en el momento que le de click al botonn.... espero haberme explicado..

como lo haria..

este es mi codigo..

<%
'Crear Ficheros verificando su existencia para no borrarlo si ya esta creado.
'Crear Ficheros
set FSO = Server.CreateObject("Scripting.FileSystemObject")
If fso.FileExists (Server.MapPath("prueba.txt")) Then
response.write("El fichero ya existe")
else
'set oFich = FSO.CreateTextFile ( Server.MapPath("C:\pozo2"), True )
set oFich = FSO.CreateTextFile (("C:\arcims\website\exe-pozos\pozo"), True )
'oFich.WriteLine ("tak-1")
oFich.WriteLine (pozo)

'response.write("Se ha creado el fichero & ofich")
end if
%>

este codigo.. supongo que debe estar dentro de algun scritp..

gracias

[u_goldman]

Pues lo mas sencillo es enviarla por un formulario a otro asp que contenga este código, ahora, para hacer más limpio el proceso puedes hacer una Sub en un archivo include y mediante un formulario mandar un parámetro a esta misma página, si el request de esa variable es generar el archivo entonces se va a este sub...e incluso se me ocurre que puedes enviar el nombre del archivo que quieres crear

'-----------------Archivo mis_sub.asp---------------------------------
Sub crear(fichero)
'Crear Ficheros verificando su existencia para no borrarlo si ya esta creado.
'Crear Ficheros
set FSO = Server.CreateObject("Scripting.FileSystemObject")
If fso.FileExists (Server.MapPath(fichero)) Then
response.write("El fichero ya existe")
else
'set oFich = FSO.CreateTextFile ( Server.MapPath("C:\pozo2\" & fichero), True )
set oFich = FSO.CreateTextFile (("C:\arcims\website\exe-pozos\pozo\" & fichero), True )
'oFich.WriteLine ("tak-1")
oFich.WriteLine (pozo)

'response.write("Se ha creado el fichero & fichero")
end if
End Sub
'---------------------------------------------------------------------------------

'------------------Archivo envio.asp------------------------------------------
<!--#include file= "mis_sub.asp"-->
<form action=envio.asp method=post>
Nombre:&nbsp;<input type=hidden name=generar value="1">
<input type=text name=nombre_archivo value=""><br>
<input type=submit value=Enviar>
</form>
If trim(request.form("generar")) <> "" Then
nombre_archivo= trim(request.form("nombre_archivo"))
crear(nombre_archivo)
End If

'----------------------------------------------------------------------------------

Salu2,