Ciao a tutti,
vorrei creare un file excel prendendo dei dati da una query.
Ho visto alcuni esempi in questo forum, ho provato questo ma non mi crea il file in excel.
mi sapete dire perchè?
------------------------------------------------
<%
Dim FileName
FileName="cat.xls"
Response.Buffer = true
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "content-disposition", "inline; filename=" & FileName
path="mailing_tecnoborsa.mdb"
Dim DBConn
Set DBConn=Server.CreateObject("ADODB.Connection")
Dim rs
set rs=Server.CreateObject("ADODB.Recordset")
strConn="Provider = Microsoft.Jet.OLEDB.4.0;"
strConn= strConn & "Data Source =" & Server.MapPath(path)
'apro la connessione
DBConn.Open strConn
pippo = Request.form("pippo")
sVariabile = Request.form("sVariabile")
'estraggo i dati
Set rs = DBconn.Execute("SELECT NOME, COGNOME FROM FiabciItalia")
DO while not rs.EOF
Response.write "<table border=1>"
Response.Write("<tr>")
Response.Write("<th bgcolor='#FFCC99'>NOME</th><th bgcolor='#FFCC99'>COGNOME</th></tr>")
Response.write "<tr>"
Response.Write ("<td>")
Response.write rs.GetString(,,"</td><td>","</td></tr><tr><td>","")
Response.write "</td></tr></table>"
Set rs=Nothing
DBConn.Close
Set DBConn= Nothing
Response.flush
Response.end
rs.Close
rs.MoveNext
loop
%>
-------------------------------------------------
Rispondi quotando
