Ciao a tutti,
ho una pagina01.asp (vbscript) che genera un elenco di clienti.

In fondo alla pagina01.asp ho un pulsante.

Il pulsante invia la form, con tutti i clienti usciti dalla query, alla pagina02.asp che dovrebbe fare due cose:

1) fare un update inserendo i record in una tabella (lo fa)
2) generare il foglio Excel (non lo fa)

Vi copio qui il codice della pagina02.asp

<%
list=request("list") 'tutti i clienti sono contenuti in questo campo che dovrò splittare)
lista=split(list,",") 'lo splitto via virgola ottenendo un array

'********* FOGLIO EXCEL *****************

'assegna il nome al file Excel che si desidera generare
Dim filename
filename = "tabella"

'definisce il tipo di documento
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "content-disposition", "inline; filename=" &filename& ".xls"

'crea la tabella del foglio Excel
Response.Write "<table>"
for i=0 to UBound(lista)
Response.Write "<tr>"
Response.Write "<td width=255>"&lista(i)&"</td>"
Response.Write "</tr>"
next
Response.Write "</table>"

'********** INSERIMENTO IN DATABASE ***************

set rs=server.createobject("ADODB.Recordset")
rs.Open "CLIENTI",objconn,3,3
for i=0 to UBound(lista)
rs.AddNew
rs("ID_CLIENTE") = lista(i)
rs("DATA_INVIO") = date()
rs.Update
next
rs.Close
objconn.Close
response.redirect("pagina01.asp")
%>