Email con allegato e CDOSYS

[wegawhite]

Buon anno!

Ho trovato con la ricerca questo script che esporta in excel dei dati visualizzati in asp; il problema è che vorrei mandare via email in allegato anche il file.xls generato dallo script, ma non ricevo nulla anche se lo script non restituisce errori; dico subito che ho provato ad eliminare ed a spostare le righe segnate con colore rosso nel code, ma in questo caso la generazione del file excel va in errore:

<%
Dim FileName
FileName="file.xls" 
Response.Buffer = true 
Response.ContentType = "application/vnd.ms-excel" 
Response.AddHeader "content-disposition", "inline; filename=" & FileName 
path="mdb.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) 

DBConn.Open strConn 

nome = Request.form("nome")
cognome = Request.form("cognome")
email = Request.form("email")

set rs = DBConn.Execute("SELECT * FROM anagrafica WHERE nome = '" &nome& "'")

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><th bgcolor='#FFCC99'>email</th></tr>") 
Response.write "<tr>" 
Response.Write ("<td>") 
Response.write rs.GetString(,,"</td><td>","</td></tr><tr><td>","") 
Response.write "</td></tr></table>" 

Response.flush 
Response.end 

Set rs=Nothing 
DBConn.Close 
Set DBConn= Nothing 

rs.MoveNext 
loop

invioA =  "email@com.com"
invioDa =  "email@com.com"
fileAllegato = "file.xls"

FOR numeroCampi = 1 TO (Request.Form.Count() - 1)
  IF NOT Request.Form(numeroCampi) = "" THEN
    corpoMessaggio = corpoMessaggio & "
" & Request.Form.Key(numeroCampi) & " = " & Trim(Request.Form(numeroCampi))
END IF
NEXT

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.aruba.it" 
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

	messaggio = messaggio & VBcrlf & "nome = "&nome&"

"
  	messaggio = messaggio & VBcrlf & "cognome = "&cognome&"

"
  	messaggio = messaggio & VBcrlf & "email = "&email&"

"

With iMsg

  Set .Configuration = iConf
  .To = "&email&"
  .From = invioA
  .Bcc = "email@com.com"
  .Sender = invioDa
  .Subject = " ["&nome&"] "
  .HtmlBody = messaggio 
  .AddAttachment ("& fileAllegato &")
  .Send
   
End With

%>