creare file excel da scaricare

[michela85cancro]

Buongiorno a tutti,

non sono molto pratica di asp... Sto cercando di fare una pagina che mi consenta di esportare in un file excel i dati del mio DB. Questo è il codice:

<%@LANGUAGE = VBScript%>

 
 
    
 

<%
Function Mostra_Tipo(tipo)
    SELECT CASE tipo
        CASE "r","R"
            Mostra_Tipo="Richieste"
        CASE "a","A"
            Mostra_Tipo="Acquisizione"
        CASE "v","V"
            Mostra_Tipo="Vendite"
        CASE "f","F"
            Mostra_Tipo="Fornitori"
        CASE "o","O"
            Mostra_Tipo="Altro"    
    END SELECT 
   
End function


        Dim Cn, rs
        
	    Set Cn = Server.CreateObject("ADODB.Connection")
	    set rs_filtri = server.CreateObject("adodb.recordset")
	   
	    Cn.Open Application(easysite_DSN)

	ufficio = CInt(Request.Cookies(admin_label) (admin_label&"GroupId"))

    SQL="SELECT * FROM CONTATTI WHERE UFFICIO="& ufficio
    Set Rs=Cn.Execute(SQL)   
    tipo_file = Request.QueryString("tipo")
    if tipo_file="xls" then
      
        'assegna il nome al file Excel che si desidera generare
        Dim filename
        filename = "Contatti_"&ufficio

        'abilita la bufferizzazione
        Response.Buffer = true

        'definisce il tipo di documento

        response.buffer = true 
        response.ContentType = "application/vnd.ms-excel" 
        response.AddHeader "content-disposition", "inline; filename=" & FileName 

       'crea la tabella del foglio Excel
       Response.Write "<table>"
       Response.Write ("<tr><td>Cognome</td><td>Nome</td><td>Rag_Soc</td><td>Indirizzo</td><td>CAP</td><td>Comune</td><td>Provincia</td><td>Codice_Fiscale</td>")
       Response.Write ("<td>Partita_IVA</td><td>Telefono</td><td>Cellulare</td><td>Email</td><td>Fax</td><td>Data_nascita</td><td>Luogo_nascita</td>")
       Response.Write ("<td>Professione</td><td>Nr_documento</td><td>Tipo_documento</td><td>Note</td></tr>")
       do while not rs.Eof
           Response.Write ("<tr><td>"&rs("Cognome")&"</td><td>"&rs("Nome")&"</td><td>"&rs("Rag_Soc")&"</td><td>"&rs("Indirizzo")&"</td><td>"&rs("CAP")&"</td><td>"&rs("Comune")&"</td><td>"&rs("Provincia")&"</td><td>"&rs("Codice_Fiscale")&"</td>")
            Response.Write ("<td>"&rs("Partita_IVA")&"</td><td>"&rs("Telefono")&"</td><td>"&rs("Cellulare")&"</td><td>"&rs("Email")&"</td><td>"&rs("Fax")&"</td><td>"&rs("Data_nascita")&"</td><td>"&rs("Luogo_nascita")&"</td>")
           Response.Write ("<td>"&rs("Professione")&"</td><td>"&rs("Nr_documento")&"</td><td>"&rs("Tipo_documento")&"</td><td>"&Mostra_Tipo(rs("tipo"))&" - "&rs("Note")&"</td></tr>")
          rs.movenext
      loop
       
       Response.Write "</table>"

       'invia l'output HTML bufferizzato
       Response.Flush
       Response.End

    Elseif tipo_file="csv" then
        ....
    End if    

        Set Rs = Nothing
        cn.Close
        Set cn = Nothing  
%>

Il problema è che mi viene mostrata a video la tabella html e non viene aperto nè tanto meno mostrato nessun file xls... che cosa sbaglio?

[cavicchiandrea]

Sicura che questa variabile filename = "Contatti_"&ufficio
sia corretta cioè Contatti_varibile.xls secondo me manca l'estensione e anche questo filename=" & FileName asp non dovrebbe essere casesensitive distinguere MAIUSCOLE/minuscole ma meglio non rischiare

[michela85cancro]

la variabile contiene il valore Contatti_125.xls
...ho provato a verificare l'html della pagina che mi si genera: parte direttamente con il tag <table> senza nient'altro, potrebbe dipendere da questo?

[michela85cancro]

... non giungendo ad una conclusione ho deciso di esportare in .csv e tutto funziona perfettamente
Grazie comunque dell'aiuto