Dovrei cambiare CDONTS in CDOSYS:

<%@LANGUAGE = JScript%>
<%
// Recupero i dati dal modulo
var username = new String(Request.Form("username"));
var password = new String(Request.Form("password"));
var email = new String(Request.Form("email"));
var oggetto = new String(Request.Form("oggetto"));
var messaggio = new String(Request.Form("messaggio"));

// Verifico username e password
if ((username != "xxxxxx") || (password != "xxxxxxxx")) {
Response.Write("Autorizzazione negata");
Response.End;
}

// Creo la classe CDONTS.NewMail per inviare l'email
var INVIA = new ActiveXObject("CDONTS.NewMail");

// Riempio i campi dell'email
INVIA.To = "";
INVIA.Bcc = email;
INVIA.From = "info@xxxxxxxx"; // Inserisci il tuo indirizzo email
INVIA.Subject = oggetto;
INVIA.Body = messaggio;

INVIA.Send();

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


come posso fare? Mi aiutate?

Grazie!

Ho provato con

<%
// Recupero i dati dal modulo
username = Request.Form("username")
password = Request.Form("password")
email = Request.Form("email")
oggetto = Request.Form("oggetto")
messaggio = Request.Form("messaggio")

// Verifico username e password
if ((username != "xxxxxx") || (password != "xxxxxxx"))
{
Response.Write("Autorizzazione negata");
Response.End;
}

Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.xxxxxxxxxxx.it"
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("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = info@xxxxxxxxxxx.it
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxxxxxxx"
objCDOSYSCon.Fields.Update
'Update the CDOSYS Configuration
Set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = "info@xxxxxxxx.it"
objCDOSYSMail.To = info@xxxxxxxx.it
objCDOSYSMail.Subject = "News"
'Set the e-mail body format (HTMLBody=HTML TextBody=Plain)
objCDOSYSMail.HTMLBody = "Your message"
objCDOSYSMail.Send
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing

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

ma ho quest'errore

Microsoft VBScript compilation error '800a03ee'

Expected ')'

/luke_newsletter/invia.asp, line 10

if ((username != "xxxxxx") || (password != "xxxxxxx"))
--------------^

come risolvo??

Ciao Lucio,
ora mi da l'errore per il segno ||

Come sostituisco?

è più semplice di quanto puoi immaginare...

l'OR logico in VB è: OR

comunque nella tua istruzione manca anche il THEN

la sintassi esatta è

IF clausola THEN
istruzioni
ELSE
istruzione
END IF

---

Modificato da luciotorre il 31 agosto 2005 15.50 -