Salve, ho la necessita di creare da database 195 file con delle info. Con un ciclo while creo i file ed il primo download lo effettua. Ma anche se il ciclo continua ed arriva al termine, la procedura non effettua i download successivi. Leggendo in rete ho letto che questo è un sistema di "protezione" del browser. La domanda è: ma c'è un modo per bypassare questa protezione?
Questo il codice:

Protected Sub ExportSingoloAgente()

Dim dbconn As OleDbConnection
Dim dbcomm As OleDbCommand
Dim dbread As OleDbDataReader
Dim sql As String

dbconn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("~/mdb-database/ArcLavoro_" & mdblavoro & ".mdb"))
dbconn.Open()

sql = "SELECT TContatto.Cod_Campagna FROM TContatto GROUP BY TContatto.Cod_Campagna;"
dbcomm = New OleDbCommand(sql, dbconn)
dbread = dbcomm.ExecuteReader()

If dbread.HasRows Then

Do While dbread.Read() 'Sposta il puntatore sul primo record

cmdEsporta(dbread("Cod_campagna"))

Loop

End If

dbread.Close()
dbconn.Close()

Response.Redirect("PannelloSA.aspx")

End Sub

Protected Sub cmdEsporta(xCodCampagna As String)

Dim strSQL As String = "SELECT * FROM Q_ControlloTutto WHERE Q_ControlloTutto.IdEsitoTelefonata = 14 AND Q_ControlloTutto.Campagna='" & xCodCampagna & "';"

AccessDataCTRL.SelectCommand = strSQL
AccessDataCTRL.DataBind()
GridView3.DataBind()

Dim xGrid As GridView = GridView3
Dim nomefile As String = "Excel_" & xNomeFile & "_" & xCodCampagna

ExportGridToExcel(xGrid, nomefile)

End Sub

Protected Sub ExportGridToExcel(Grid As GridView, Name As String)

Response.Clear()
Response.Buffer = True
Dim Header As String = "attachment;filename=" & Name & ".xls"
Response.AddHeader("content-disposition", Header)
Response.Charset = ""
Response.ContentType = "application/vnd.ms-excel"
Using sw As New StringWriter()
Dim hw As New HtmlTextWriter(sw)

Grid.RenderControl(hw)
Dim style As String = "<style> .textmode { mso-number-format:\@; } </style>"
Response.Write(style)
Response.Output.Write(sw.ToString())
Response.Flush()
Response.[End]()
End Using

End Sub

ok, grazie.