.....
response.buffer = true
Response.Clear
response.ContentType = "application/vnd.ms-excel"
response.AddHeader ("content-disposition", "attachment;filename=Logs.xls")
.....
dim prow
Dim strConn as string = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & server.mappath("../../caaf.mdb")
Dim Conn as New OleDbConnection(strConn)
Conn.Open()
Dim sqlLog as string="SELECT * FROM T_Log Where......."
DIM adLog AS new OleDbDataAdapter(sqllog, conn)
DIM dsLog AS New DataSet()
adLog.Fill(dsLog, "tab")
Response.Write("<table border=1 bordercolor=lightsteelblue cellspacing=0 align=center>")
Response.Write("<tr><td>
IdLog</td><td>
Data</td><td>
Cognome</td><td>
Nome</td><td>
Ip</td><td>
Referer</td><td>
Area</td><td>
Azione</td><td>
Valore</td><td>
Valore Precedente</td></tr>")
if dsLog.Tables("tab").Rows.Count>0 then
For Each pRow In dsLog.Tables("tab").Rows
Response.Write("<tr><td>" & pRow("IdLog").ToString() & "</td><td>" & pRow("Data").ToString() & "</td><td>" & pRow("Cognome").ToString() & "</td><td>" & pRow("Nome").ToString() & "</td><td>" & pRow("Ip").ToString() & "</td><td>" & pRow("Referer").ToString() & "</td><td>" & pRow("Area").ToString() & "</td><td>" & pRow("Azione").ToString() & "</td><td>" & pRow("Valore").ToString() & "</td><td>" & pRow("ValorePrecedente").ToString() & "</td></tr>")
next
end if
Response.Write("</table>")
response.flush
response.end
conn.close