Script automatico

[nilats]

ciao a tutti
il mio problema è che ho uno script contenuto in una certa pagine asp
che si esegue in auto non appena clikko sul link
che carica la pagina in questione.Come fare per non farlo andare in esecuzione auto ma invece azionarlo io da un normale form?
grazie

[deivnet]

Ma uno script Javascript o VBScript?

[rixx]

devi usare le operazioni pianificate chiedendo al tuo provider..
oppure se pensi almeno una persona ti visiti al giorno puoi fare un controllo con la data

[nilats]

dimenticavo...
è uno script vb e gira in locale sul mio server iis

lo script x traferire i dati da una pagina web ad un foglio excel

posto:

<form action="" method="post" name="form1" id="form1">
  <div align="center">
<input name="excel" type="submit" value="EXCEL" />
<%

' estraggo i dati
Set rs = OBJdbConnection.Execute("SELECT * FROM fatture where idfattura like '"&idfattura&"'")
for i = 0 to rs.Fields.Count-1
  risultato = risultato & rs.Fields(i).Name & "</td><td>"
next
risultato = risultato & "</td></tr><tr><td>"
risultato = risultato & rs.GetString(,,"</td><td>","</td></tr><tr><td>", "-")

' chiusura
rs.Close
set rs = Nothing
OBJdbConnection.Close
set OBJdbConnection = Nothing

' modifico header per forzare l'apertura in Excel
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "content-disposition", "inline; filename=fattura.xsl"

' scrivo a video
'Response.Write ("<table><tr><td>" & risultato & "</td></tr></table>")

%>
  </div>
</form>

Ripeto il problema è che parte da solo...

[deivnet]

Prova a modificarlo in questo modo, ho aggiunto un if che va a controllare se è stato premuto il pulsante di submit.
Spero sia quello che cercavi. Attenzione che in qualche modo devi mantenere la variabile "idfattura" che usi nella query SQL.
Potresti farlo con un campo hidden del form.

<form action="" method="post" name="form1" id="form1">
<div align="center">
<input name="excel" type="submit" value="EXCEL" />
<%

if Request.Form("excel") = "EXCEL" then
' estraggo i dati
Set rs = OBJdbConnection.Execute("SELECT * FROM fatture where idfattura like '"&idfattura&"'")
for i = 0 to rs.Fields.Count-1
risultato = risultato & rs.Fields(i).Name & "</td><td>"
next
risultato = risultato & "</td></tr><tr><td>"
risultato = risultato & rs.GetString(,,"</td><td>","</td></tr><tr><td>", "-")

' chiusura
rs.Close
set rs = Nothing
OBJdbConnection.Close
set OBJdbConnection = Nothing

' modifico header per forzare l'apertura in Excel
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "content-disposition", "inline; filename=fattura.xsl"

' scrivo a video
'Response.Write ("<table><tr><td>" & risultato & "</td></tr></table>")

end if
%>
</div>
</form>

[rixx]

ah ops ho capito il contrario!

[nilats]

quindi?come dovrei fare alcontrario?

[rixx]

non l'ho controllato ma suppongo che quello che ti ha scritto deivnet dovrebbe funzionare

[nilats]

ottimo Rixx
funge alla grande...
scusa se sn insistente..
ma è possibile ke ogni volta salvi un file con un nome
diverso, meglio anzi se cattura un il campo datafattura del DB
cmq grazie amico rixx

[rixx]

puoi aggiungere un campo con il nome che gli vuoi dare al db:

<form action="" method="post" name="form1" id="form1"> 
<div align="center"> 
<input name="name" type="text" /> 
<input name="excel" type="submit" value="EXCEL" /> 
<% 
if Request.Form("excel") = "EXCEL" then 
nomefile=request.form("name")
' estraggo i dati 
Set rs = OBJdbConnection.Execute("SELECT * FROM fatture where idfattura like '"&idfattura&"'") 
for i = 0 to rs.Fields.Count-1 
risultato = risultato & rs.Fields(i).Name & "</td><td>" 
next 
risultato = risultato & "</td></tr><tr><td>" 
risultato = risultato & rs.GetString(,,"</td><td>","</td></tr><tr><td>", "-") 

' chiusura 
rs.Close 
set rs = Nothing 
OBJdbConnection.Close 
set OBJdbConnection = Nothing 

' modifico header per forzare l'apertura in Excel 
Response.ContentType = "application/vnd.ms-excel" 
Response.AddHeader "content-disposition", "inline; filename=nomefile & ".xsl" 

' scrivo a video 
'Response.Write ("<table><tr><td>" & risultato & "</td></tr></table>") 

end if 
%> 
</div> 
</form>