MI ha detto il provider che devo attivare io il componente CDOSYS e mi dicono che basta usare
mail.attiva.biz
Io ho usato un semnplice script per CDOSYS ma non mi funziona mi da questo errore inviando:
CDO.Message.1 error '80040220'
The "SendUsing" configuration value is invalid.
/wireless/Uk/mail.asp, line 180
codice:<% nome = Request.form("nome") cognome = Request.form("cognome") azienda = Request.form("azienda") email = Request.form("email") telefono = Request.form("telefono") messaggio = Request.form("messaggio") Dim MiaMail Set MiaMail = Server.CreateObject("CDO.Message") MiaMail.From = Request.Form("email") MiaMail.To = "xx@xxxx.it" MiaMail.Subject = "AUREL Wireless - Contatto dal sito" MiaMail.HTMLBody = "Nome: " & Request.Form("nome") & "[b] Cognome: " & Request.Form("nome") & "[b] Telefono: " & Request.Form("telefono") & " E-mail: " & Request.Form("email") & " Richiesta: " & Request.Form("messaggio") MiaMail.Send() Set MiaMail = Nothing Dim MiaMail2 Set MiaMail2 = Server.CreateObject("CDO.Message") MiaMail2.To = Request.Form("email") MiaMail2.Subject = "AUREL Wireless - Conferma di ricezione " MiaMail2.HTMLBody = "Your message was received correctly! Thanks to write us, you'll be contact as soon as possible. AUREL s.p.a. - Wireless dpt. Sales office" MiaMail2.Send() Set MiaMail2 = Nothing Set objConn = Server.CreateObject("ADODB.Connection") str="Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/utenti.mdb") objConn.Open str str="" stringa_1="INSERT INTO Email_newsletter ("'Values ( for each variable_name in request.form value=request.form(variable_name) if ((not variable_name="button") ) then 'aggiungere OR .... if (not variable_name="Privacy") then 'response.write variable_name& " - " &value &" " str=str+ variable_name +"," str2=str2 &"'"&value&"'," end if end if next 'crea l'SQL INSERT str=stringa_1 + Left(str,len(str)-1) + ") Values (" + Left(str2,len(str2)-1)+")" Set objRs = objConn.Execute (str) Response.Write ("<span class='testo'>Your message was received correctly, you will be contact as soon as possible.") %>

Rispondi quotando