Jscript CDOSYS

[freexel]

Hello,

Can someone please help me recode this script to Jscript?

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
'Create the e-mail server object
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
' Outgoing SMTP server
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objCDOSYSCon.Fields.Update

' Update the CDOSYS Configuration
Set objCDOSYSMail.Configuration = objCDOSYSCon

dim txtBody
txtBody = "Dear Sir/Madam"

objCDOSYSMail.From = "*****"
objCDOSYSMail.To = "******"
objCDOSYSMail.Subject = "subject"
objCDOSYSMail.HTMLBody = txtBody
objCDOSYSMail.Send

'Close the server mail object
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing
%>

Thanks a lot!