salve a tutti,
dunque premesso che io non conosco su che sistema si basi il server dell'hosting ho fatto le prove sia per l'oggetto cdonts che per l'oggetto cdosys.
con cdonts metodo per l'invio di server basati su win 2000 ottengo quest'errore:
mentre usando il codice valido per cdosys e quindi per un server win 2003 ottengo invece quest'altro errore:codice:Errore di run-time di Microsoft VBScript error '800a01ad' Il componente ActiveX non può creare l'oggetto: 'CDONTS.NewMail' /inviomail.asp, line 34
ora questo è il mio codice:codice:ADODB.Fields error '800a0bb9' Gli argomenti non sono di tipo valido, non sono compresi nell'intervallo consentito o sono in conflitto. /inviomail.asp, line 71
in base agli errori secondo voi da cosa dipendono e quele accidenti di sistema avrà quel server che per altro andando sul loro sito non indicano ad ogni server quale os corrisponde...codice:<%@LANGUAGE="VBSCRIPT"%> <html> <head><title>Invio delle mail a tutti gli iscritti</title></head> <% Mittente=Request("Nome") Mail= Request("Mail") Localita= Request("citta") Prov = Request("Provincia") Telefono= Request("telefono") Cellulare = Request("Cell") Esp = Request("suono") ogg= Request("oggetto") Message= Request("Messaggio") Flag=0 if (Mittente = "") or (Mail = "") or (Localita = "") or (Prov = "") or (Telefono = "") or (Ogg = "") or (message = "") Then Flag=1 else end if If (Esp = "") Then Esperienza = "Nessuna Esperienza" else Esperienza = Esp end if Dim miaMail, strOggMail,strBodyMail DIM iMsg, Flds, iConf 'Invio l'email codice x cdonts win 2000 linea34 errore cdonts'Set miaMail = CreateObject("CDONTS.NewMail") 'miaMail.From = Mail 'miaMail.To = "xxxxxxxxx@tin.it" strOggMail = "Nuovo Contatto da Lezionidisax.it" 'Corpo del messaggio strBodyMail = "" strBodyMail = "<html><head><title>Lezionidisax.it - Nuovo Contatto</title></head><body bgcolor=#24201F><Table width=800 cellpadding=0 cellspacing=0><tr>" strBodyMail = strBodyMail & "<td valign=top><center><Table width=800 height=80 cellpadding=0 cellspacing=0 border=0 bordercolor=#FFFFFF><tr><td width=10 valign=top></td>" strBodyMail = strBodyMail & "<td width=400 valign=middle><img src=titolo.jpg border=0></td><td width=390 valign=top></td></tr></table>" strBodyMail = strBodyMail & "<Table width=800 cellpadding=0 cellspacing=0 border=0 bordercolor=#FFFFFF><tr><td width=10 valign=top></td><td width=780 valign=top>" strBodyMail = strBodyMail & "<font size=2 color=#FFFFFF face=Verdana>" & Mittente & " " & Localita & "-" & Prov & " " strBodyMail = strBodyMail & "Tel." & telefono & "/Cell." & Cell & " E-Mail" & Mail & " </font></td><td width=10 valign=top></td></tr></table>" strBodyMail = strBodyMail & "<Table width=800 height=15 cellpadding=0 cellspacing=0 border=0 bordercolor=#FFFFFF><tr><td width=800 valign=top></td></tr></table><Table width=800 cellpadding=0 cellspacing=0>" strBodyMail = strBodyMail & "<tr><td width=10 valign=top></td><td width=780 valign=top><font size=2 color=#FFFFFF face=Verdana>Esperienze Musicali:" & Esperienza & "</font></td>" strBodyMail = strBodyMail & "<td width=10 valign=top></td></tr></table><Table width=800 height=30 cellpadding=0 cellspacing=0 border=0 bordercolor=#FFFFFF><tr><td width=800 valign=top></td></tr></table>" strBodyMail = strBodyMail & "<Table width=800 cellpadding=0 cellspacing=0 border=0 bordercolor=#FFFFFF><tr><td width=10 valign=top></td><td width=780 valign=top><font size=2 color=#FFFFFF face=Verdana>" strBodyMail = strBodyMail & "Oggetto:" & Oggetto & "</font></td><td width=10 valign=top></td></tr></table><Table width=800 height=5 cellpadding=0 cellspacing=0 border=0 bordercolor=#FFFFFF>" strBodyMail = strBodyMail & "<tr><td width=800 valign=top></td></tr></table><Table width=800 cellpadding=0 cellspacing=0 border=0 bordercolor=#FFFFFF><tr><td width=10 valign=top></td>" strBodyMail = strBodyMail & "<td width=780 valign=top><p align=justify><font size=2 color=#FFFFFF face=Verdana>" & Messaggio & "</font></p></td><td width=10 valign=top></td></tr></table></center>" strBodyMail = strBodyMail & "</td></tr></Table></body></html>" 'windows 2000 cdonts code di fine invio 'miaMail.Subject = strOggMail 'miaMail.BodyFormat = 0 'miaMail.MailFormat = 0 'miaMail.Body = strBodyMail 'miaMail.Send 'Set miaMail = Nothing 'windows 2003 cdosys code Set iMsg = CreateObject("CDO.Message") Set iConf = CreateObject("CDO.Configuration") Set Flds = iConf.Fields linea 71 errore cdosysFlds(cdoSendUsingMethod) = cdoSendUsingPort Flds(cdoSMTPServer) = "roma4.websolutions.it" Flds(cdoSMTPServerPort) = 25 Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0 Flds.Update With iMsg Set .Configuration = iConf .To = "xxxxxxx@tin.it" .From = EMail .Sender = "servizio...quello che vuoi" .Subject = strOggMail .HtmlBody = strBodyMail .Send End With 'controllo del flag e condizione If (Flag=0) Then Response.Redirect("invioavvenuto.asp") else Response.redirect("contatti.asp?Errore=" & flag) end if %> <body> </body> </html>
Grazie
Rispondi quotando
