trasformare da VBScript a JScript

[giangarotto]

Qualcuno mi spiega come faccio a trasformare questo script da VBScript a JScript....

Scusate l'ignoranza

<%
Dim iMsg, iConf, Flds

'Crea l'oggetto email 
Set iMsg = CreateObject("CDO.Message")
'Crea l'oggetto configurazione 
Set iConf = CreateObject("CDO.Configuration")
'Impostazione delle configurazioni per l'invio remoto
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True

'Spedizione: mittente, destinatario, oggetto, messaggio
mittente = "mittente@tuodominio.xx"
destinatario = "mittente@suodominio.zz"
oggetto = "Prova email"
messaggio = "Invio con CDOSYS"

With iMsg

'Assegnazione delle configurazioni
Set .Configuration = iConf

.From = mittente
.To = destinatario
.Subject = oggetto

'Formato HTML
.HTMLBody = messaggio
'Formato testo (scegliere)
.TextBody = messaggio

'Invio di una pagina web
.CreateMHTMLBody "http://www.novacomitalia.com/home/"

'Invio con allegato
.AddAttachment server.mappath("/public/test.txt")

'Invia l'email 
.Send() 

end with

set Flds = Nothing
set iConf = Nothing
set iMsg = Nothing
%>

[giangarotto]

Ho modificato qualcosa ...

<%
Dim iMsg, iConf, Flds

Set iMsg = CreateObject("CDO.Message");
Set iConf = CreateObject("CDO.Configuration");
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True;

mittente = "mittente@tuodominio.xx";
destinatario = "mittente@suodominio.zz";
oggetto = "Prova email";
messaggio = "Invio con CDOSYS";

With iMsg

Set .Configuration = iConf;

mail.From = mittente;
mail.To = destinatario;
mail.Subject = oggetto;

mail.HTMLBody = messaggio;
mail.TextBody = messaggio;

//Invio di una pagina web
//mail.CreateMHTMLBody "http://www.novacomitalia.com/home/"

//Invio con allegato
//mail.AddAttachment server.mappath("/public/test.txt")

//Invia l'email
mail.Send();

end with

set Flds = Nothing;
set iConf = Nothing;
set iMsg = Nothing;
%>