da cdont a cdosys

**Stanislao** · 14-05-2006, 10:33

salve a tutti..volevo chiedervi qualora fosse possibile come fare affinchè questo script ,che su un hosting che supporta cdont funziona benissimo,funzionasse con cdosys

sapreste dirmi cosa devo cambiare per farlo funzionare con cdosys?

grazie infinite...

Codice PHP:


<%@LANGUAGE = JScript%>

<%

//***********  CARICA DATI DAL DATABASE **************



   // Apro la connessione al database

   var Cn = new ActiveXObject("ADODB.Connection");

   var Sc = "driver={Microsoft Access Driver (*.mdb)};dbq=" + Server.MapPath("data.mdb");

   Cn.Open(Sc);



   // Estraggo gli indirizzi email dal database



   var utenti = Cn.Execute("SELECT * FROM Utenti");



  // Estraggo tutti gli indirizzi email dal database



      user=""

      while (!utenti.EOF) {

             user=user+utenti("Email") + ","

             utenti.MoveNext();

      }

    Cn.Close();

    Response.write(user)











//***********  I N V I O    E M A I L  **************



   var oggetto = new String(Request("oggetto"));

   var messaggio = new String(Request("messaggio"));

%>



<%

bBody = ""

bBody = bBody + messaggio

bBody = bBody + "<html>"

bBody = bBody + "<head>"

bBody = bBody + "</head>"

bBody = bBody + "<body>"

bBody = bBody + "<p align='center'>[img]http://www.miosito.com/foto.jpg[/img]</p>"

bBody = bBody + "</body>"

bBody = bBody + "</html>"

%>



   // Creo la classe CDONTS.NewMail per inviare l'email



   var INVIA = new ActiveXObject("CDONTS.NewMail");

   

       INVIA.Bcc = user;

       INVIA.From = "giovani@miosito.it"; 

       INVIA.Subject = oggetto;

       INVIA.Body = bBody



       INVIA.BodyFormat = 0 

       INVIA.MailFormat = 0



       INVIA.Send();

       

   Response.Write("Newsletter inviata con successo.");



%>

**maximum** · 14-05-2006, 11:58

Va cambiata tutta la parte relativa all'invio mail.

Dai un'occhiata qui --> http://asp.html.it/script/vedi/1025/...il-con-cdosys/

**Stanislao** · 14-05-2006, 12:07

ma non è molto semplice a vedersi

**maximum** · 14-05-2006, 12:34

E' invece è semplicissimo...un po' di buona volontà e lo applichi alla grande!

**Stanislao** · 14-05-2006, 12:35

sto provando così ma non funziona....

Codice PHP:




<% 

Set Cn = Server.CreateObject("ADODB.Connection")

Cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("data.mdb")

Set rs = Server.CreateObject("ADODB.Recordset") 

strSQL="SELECT Email FROM Utenti" 



rs.Open strSQL,cn 





email = Request.Form("messaggio") 

mittente = Request.Form("mittente")

oggetto = Request.Form("oggetto")





Set Config = Server.CreateObject("CDO.Configuration") 

Set Fields = Config.Fields 

Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 

Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "serverSMTP" 

Fields.Update 



do until Not RS.eof 



Set objMail = Server.CreateObject("CDO.Message") 



objMail.To = rs("Email") 

objMail.From = mittente 

objMail.Subject = oggetto 

objMail.HTMLBody = email 

objMail.Send() 

RS.movenext 

loop 



Set Config = Nothing 

Set Fields = Nothing 

Set objMail = Nothing 



set cn = nothing 

set rs = nothing 

%>

**santino83** · 14-05-2006, 19:59

spero che nel frattempo tu abbia passato la pagina da JSCRIPT a VBSCRIPT

e poi penso che qui:

codice:

Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "serverSMTP"

al posto di serverSMTP tu debba specificare il server smtp giusto, non lasciare la stringa di esempio usata da html.it

Discussione: da cdont a cdosys

Strumenti discussione

Ricerca discussione

Visualizza

da cdont a cdosys

Permessi di invio