ASP, Javascript e mail

[rinosan_76bis]

Ciao a tutti... premetto che sono molti anni che non uso più ASP, ma ricordo vagamente che si poteva fare una pagina ASP utilizzando Javascript al posto di VBscript.

Mi sapete dire ed aiutare a fare uno script semplice di prova per mandare una mail? Devo vare una verifica, ma lo vorrei in JS perchè devo controllare una cosa con il try/catch
Grazie
Rino

[fraude]

<%@LANGUAGE = JScript%>

<%

//In caso di windows server 2000
//Creo la classe CDONTS.NewMail ed invio l'email

var messaggio = "Prova";
var OggettoCDONTS = new ActiveXObject("CDONTS.NewMail");
OggettoCDONTS.From = "tuaemail";
OggettoCDONTS.To = email;
OggettoCDONTS.BCc = "tuaemail";
OggettoCDONTS.Subject = messaggio;
OggettoCDONTS.BodyFormat = 0;
OggettoCDONTS.MailFormat = 0;
OggettoCDONTS.Body = testo;
OggettoCDONTS.AttachFile(Server.MapPath(""+ path_temp +""),""+ path_temp +"");
OggettoCDONTS.Send();

%>

[rinosan_76bis]

provo subito...

[rinosan_76bis]

Ho scritto così:

<%@LANGUAGE = JScript%>
<%
//In caso di windows server 2000
//Creo la classe CDONTS.NewMail ed invio l'email
var email="gsannino@akkattp.com";
var email2="fabry@akkattp.com";
var messaggio = "Prova JAVASCRIPT";
var OggettoCDONTS = new ActiveXObject("CDONTS.NewMail");
OggettoCDONTS.From = "commerciale@promo-world.it";
OggettoCDONTS.To = email;
OggettoCDONTS.BCc = email2;
OggettoCDONTS.Subject = messaggio;
OggettoCDONTS.BodyFormat = 0;
OggettoCDONTS.MailFormat = 0;
document.write("fatto")
%>

Ma mi da sto errore:

Microsoft JScript runtime error '800a01ad'

Automation server can't create object

/provaInvio2.asp, line 8

Coi CDOSYS come sarebbe? forse CDONTS è vecchiotto ormai...

[fraude]

A parte che ne hai omesso una parte:

OggettoCDONTS.Body = testo;
//in caso di allegati
//OggettoCDONTS.AttachFile(Server.MapPath(""+ path_temp +""),""+ path_temp +"");
OggettoCDONTS.Send();

Se ti serve con CDOSYS prova questo:

var OggettoCDOSYS = new ActiveXObject("CDO.Message");

OggettoCDOSYS.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "tuo.smtp"; 
OggettoCDOSYS.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25;
OggettoCDOSYS.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2;
OggettoCDOSYS.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10;

OggettoCDOSYS.Configuration.Fields.Update();

var invioDa =  email;
var oggetto = "test"
var messaggio = "prova";

OggettoCDOSYS.From = invioDa;
OggettoCDOSYS.To = email;
OggettoCDOSYS.Cc = email;
OggettoCDOSYS.Bcc = email;
OggettoCDOSYS.Subject = messaggio;
OggettoCDOSYS.HtmlBody = testo;
//in caso di allegato
//OggettoCDOSYS.AddAttachment(Server.MapPath(""+ path_temp +""),""+ path_temp +"");
OggettoCDOSYS.Send();

[rinosan_76bis]

Grazie... ora va...
Provo a fare le mie prove di Trt/catch ed al massimo scrivo qua
Ciao