Dunque ho la mia bella applicazione che manda mail... Volevo provarla un pò più seriamente, quindi ho hostato tutto su asphost4free.com, che ho letto supporta asp.
Quando però la testo mi da questo errore:
Ho letto in giro che altri hanno riscontrato questo errore per via di problemi di scelta tra cdosys e cdonts, però come vedete l'errore me lo da nel file upload.asp (che è l'upload di baol, che uso per eventuali allegati e img varie eventualmente contenute nella mail), più precisamente a questa riga:Server object error 'ASP 0177 : 800401f3'
Server.CreateObject Failed
/username/upload.asp, line 490
800401f3
Set Stream = Server.CreateObject("ADODB.Stream")
Come mai?
Nel caso non avessi capito nulla, indico anche il codice che uso per spedire la mail
Nel caso il problema fosse qui potreste dirmi che modifiche dovrei apportare?Set objMail = Server.CreateObject("CDO.Message")
Set objMailConfig = Server.CreateObject ("CDO.Configuration")
with objMailConfig
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.fastwebnet.it"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.Update
end with
Set objMail.Configuration = objMailConfig
objMail.From = ...
objMail.To = ...
objMail.Subject = oUpload.Form("subject")
objMail.HTMLBody = ...
objMail.AddAttachment Server.MapPath(...)
objMail.AddRelatedBodyPart Server.MapPath...), ..., cdoRefTypeId
objMail.Fields("urn:schemas:httpmail:importance"). Value = 0
objMail.Fields.update()
objMail.Send
Come sempre, grazie in anticipo!
![]()

Rispondi quotando