ECCO IL RISULTATO DEL POMERIGGIO DI LAVORO USO LA CLASSE DI BAOL:
L'UPLOAD FUNZIONA è IL FILE SI TROVA NELLA CARTELLA DEL SERVER..PERò NON MI MANDA LA MAIL...e mi da questo errore:codice:<% If Request("Upload")="1" then Dim oUpload Set oUpload = new cUpload oUpload.Upload path = "/public/careers/" oUpload.SetPath path oUpload.AutoRename = True oUpload.EnabledAspUpload = False oUpload.Overwrite = False oUpload.EnabledLog = False oUpload.Save filename = oUpload.GetFileName() oUpload.PrintStatus "UPLOAD REPORT" afile = "/public/careers/" & filename Set link = CreateObject("CDONTS.Newmail") link.From = oUpload.form("email") link.To = "AA@AAA.com" link.MailFormat = 1 link.BodyFormat = 1 'response.write afile 'response.end link.AttachFile afile '---linea 82 link.Subject = "careers" link.Body = oUpload.form("name") & VbCrLf & oUpload.form("company") & VbCrLf & oUpload.form("title") & VbCrLf & oUpload.form("address") & VbCrLf & oUpload.form("city") & VbCrLf & oUpload.form("state") & VbCrLf & oUpload.form("zip") & VbCrLf & oUpload.form("tel") & VbCrLf & oUpload.form("fax") & VbCrLf & oUpload.form("interest") link.Send Set link = Nothing Set oUpload = Nothing End If %>
error '80004005'
Unspecified error
/sendcareers.asp, line 282
il file con il response esiste......COSA PUò ESSERE???
GRAZIE

Rispondi quotando