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")
%>
Rispondi quotando
