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.");
%>

Rispondi quotando