ciao a tutti devo inviare un'email con i campi del form riempito dal cliente e se lo vuole anche una file allegato.

è una cosa che ho sempre fatto senza nessun problema.

Però in questo caso devo usare Persits.Upload e non riesco a prendere il valore dei campi del form cosa sbaglio?


Set ObjUpload = Server.CreateObject("Persits.Upload")
' Limit file size to 50000 bytes, throw an exception if file is larger
ObjUpload.SetMaxSize 50000, True


' Perform upload
'ObjUpload.Save 'server.mappath(".") & "\temp"

dim objEmailCli
Set objEmailCli = Server.CreateObject("CDONTS.NewMail")

strModulo ="il sottoscritto " & ObjUpload.form("Cognome") & " " & ObjUpload.form("nome")
strModulo = strModulo & "continua tutto il modulo ha i tag html"

For Each File in ObjUpload.Files
File.SaveAs server.mappath(".") & "\temp\" & File.FileName

objEmailCli.AttachFile server.mappath(".") & "temp" & File.FileName
Next

objEmailCli.BodyFormat = 0 ' trasforma il corpo in html
objEmailCli.MailFormat = 0

objEmailCli.To = "xxx"
objEmailCli.From = "xxx"
objEmailCli.Subject = "Invio Curriculum di " & ObjUpload.form("Cognome") & " " & ObjUpload.form("nome") & " Richiesta proveniente dalla sezione Lavora con noi del sito xxx"
objEmailCli.Body = strModulo

objEmailCli.Send

Set objEmailCli = Nothing