ciao io per esportare da un db access in un file excel i dati che mi interessano uso questo codice e non mi ha dato problemi del genere....
codice:
<%@LANGUAGE="VBSCRIPT"%>
<%
Dim Conn
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("database.mdb")
set rs = server.createobject("ADODB.recordset")
'questo sarà il nome del file
FileName="Utenti_iscritti_newsletter.xls"
response.buffer = true
response.ContentType = "application/vnd.ms-excel"
response.AddHeader "content-disposition", "inline; filename=" & FileName
sql = "SELECT * FROM utenti_iscritti"
set rs = server.createobject("ADODB.recordset")
rs.open sql, conn
if rs.EOF then
response.write("NESSUN DATO IN ARCHIVIO")
else
'titoli dei campi da estrarre
response.write "<table border='1'><tr>"
response.write "<td>Email</td>"
response.write "<td>Data Iscrizione</td>"
response.write "</tr>"
do while not rs.EOF
response.write "<tr>"
response.write "<td>"
response.write rs("email")
response.write "</td>"
response.write "<td>"
response.write rs("data_iscrizione")
response.write "</td>"
'response.write "<td>"
'response.write rs("Campo")
'response.write "</td>"
'response.write "<td>"
'response.write rs("Campo")
'response.write "</td>"
'response.write "<td>"
'response.write rs("Campo")
'response.write "</td>"
'response.write "<td>"*/
rs.movenext
loop
response.write "</table>"
end if
rs.close
set rs = nothing
response.flush
response.end()
%>
salvano in una pagina estrai.asp ad esempio e poi richiamandola ti chrea il file da scaricare...
se puo' esserti utile....
ciao
Rispondi quotando
