Ho scritto il seguente script per la creazione di un file in excel da un recordset, ma quando lo apro mi da il seguente errore:

"L'operazione non è consentita se l'oggetto è chiuso"

Per quale motivo?

<%
fileName = "C:\miofile.xls"
Response.Buffer = true
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "Content-Disposition","attachment;filename=" & filename
Set rs_prodotto = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM tbl_prodotto WHERE Disponibile = '" + Replace(rs_prodotto__Param, "'", "''")
rs_prodotto.ActiveConnection = conn_STRING
Response.Write "<table>"
Do Until rs_prodotto.Eof = True
%>
<%Response.Write "<tr><td bgcolor='#ffffff' align=center'><font face='verdana' size='2'>" %>
<%= rs_prodotto("marca_prodotto") %>
<% Response.Write "</td><td bgcolor='#ffffff' align='center'><font face='verdana' size='2'>" %>
<%= rs_prodotto("modello_prodotto") %>
<% Response.Write "</td><td bgcolor='#ffffff' align='center'><font face='verdana' size='2'>" %>
<%= rs_prodotto("ID_prodotto") %>
<% Response.Write "</td><td bgcolor='#ffffff' align='center'><font face='verdana' size='2'>" %>
<%= rs_prodotto("descrizione_prodotto") %>
<% Response.Write "</td><td bgcolor='#ffffff' align='center'><font face='verdana' size='2'>" %>
<%= rs_prodotto("prezzo_prodotto") %>
<% Response.Write "</td><td bgcolor='#ffffff' align='center'></td></tr>"
Response.Write "</table>"
%>
<%
rs_prodotto.MoveNext
loop
Response.Flush
Response.End
rs_prodotto.Close
Set rs_prodotto = Nothing
Set conn_STRING = Nothing
%>

Grazie a tutti.

Ciao

L'ho risistemato in questo modo:
<%
fileName = "C:\miofile.xls"
Response.Buffer = true
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "Content-Disposition","attachment;filename=" & filename
Set rs_prodotto = Server.CreateObject("ADODB.Recordset")
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open conn_STRING
strSQL = "SELECT * FROM tbl_prodotto"
Set rs_prodotto = Server.CreateObject("ADODB.Recordset")
rs_prodotto.Open strSQL, cn
Response.Write "<table>"
Do while not rs_prodotto.Eof
%>
<%Response.Write "<tr><td bgcolor='#ffffff' align=center'><font face='verdana' size='2'>" %>
<%= rs_prodotto("marca_prodotto") %>
<% Response.Write "</td><td bgcolor='#ffffff' align='center'><font face='verdana' size='2'>" %>
<%= rs_prodotto("modello_prodotto") %>
<% Response.Write "</td><td bgcolor='#ffffff' align='center'><font face='verdana' size='2'>" %>
<%= rs_prodotto("ID_prodotto") %>
<% Response.Write "</td><td bgcolor='#ffffff' align='center'><font face='verdana' size='2'>" %>
<%= rs_prodotto("descrizione_prodotto") %>
<% Response.Write "</td><td bgcolor='#ffffff' align='center'><font face='verdana' size='2'>" %>
<%= rs_prodotto("prezzo_prodotto") %>
<% Response.Write "</td><td bgcolor='#ffffff' align='center'></td></tr>"
Response.Write "</table>"
rs_prodotto.MoveNext
loop
%>
<%
Response.Flush
Response.End
rs_prodotto.Close
Set rs_prodotto = Nothing
Set conn_STRING = Nothing
%>

Adesso funziona ma ho un altro problema.

Infatti mi sistema la prima riga del foglio correttamente, poi nella seconda riga mette tutto il resto delle informazioni. C'è di sicuro un errore nel ciclo di ripetizione ma non so dove.

Ciao e grazie ancora

Spostato fuori dal loop e funziona, ma stranamente mostra solo la metà dei record. (Sono 80 e ne mostra 40)

<% Response.Write "</td><td bgcolor='#ffffff' align='center'></td></tr>"
rs_prodotto.MoveNext
loop
Response.Write "</table>"
%>

Perche?

Grazie mille