Errore "invalid character" invio mail CDOSYS

[Mr_Flash]

Ciao ragazzi,
ho questo codice:

<%@LANGUAGE = VBSCRIPT%>
<%
// 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 <> "xxxxxxx") OR (password <> "xxxxxxxx")) then
Response.Write("Autorizzazione negata")
Response.End
else

Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.dominio.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@dominio.it
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "psw"
objCDOSYSCon.Fields.Update
'Update the CDOSYS Configuration
Set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = "info@dominio.it"
objCDOSYSMail.To = info@dominio.it
objCDOSYSMail.Subject = "News Koinestudio"
'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.");
end if
%>


ma mi dà questo errore:

Microsoft VBScript compilation error '800a0408'

Invalid character

/luke_newsletter/invia.asp, line 23

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = info@dominio.it
-----------------------------------------------------------------------------------------^


praticamente sto cercando di trasformare questo script scaricato da html da cdonts a cdosys ma non ci riesco. mi aiutate?

Script da modificare:

<%@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 != "xxxxxxxx") || (password != "xxxxxxxxx")) {
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@dominio.it"; // Inserisci il tuo indirizzo email
INVIA.Subject = oggetto;
INVIA.Body = messaggio;

INVIA.Send();

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

[lufo5]

devi mettere l'indirizzo e-mail tra apici doppi. E' una stringa.

[Mr_Flash]

Grazie Lufo, ho corretto ed ho questo errore adesso:

CDO.Message.1 error '8004020c'

At least one recipient is required, but none were found.

/luke_newsletter/invia.asp, line 31


non capisco cosa manca. Lo script che inizialmente usava cdonts sembra avere pochi parametri.

[lufo5]

Originariamente inviato da Mr_Flash
Grazie Lufo, ho corretto ed ho questo errore adesso:

CDO.Message.1 error '8004020c'

At least one recipient is required, but none were found.

/luke_newsletter/invia.asp, line 31


non capisco cosa manca. Lo script che inizialmente usava cdonts sembra avere pochi parametri.

mi sembra chiaro.. manca il destinatario o un indirizzo valido nel mail.to

[Mr_Flash]

Ho messo la variabile email come oggetto "To" ma ora ho

error '8004020f'

penso si tratti dell'autorizzazione stmp all'invio di email ma nel codice ho inserito tutto!:-(

Come risolvo??

[lufo5]

http://www.aspfaq.com/show.asp?id=2305

[lufo5]

assicurati anche che "mail.dominio.it" sia il nome corretto del pc che invia le mail. (mi pare difficile si chiami così)

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.dominio.it"

[Mr_Flash]

Risolto!

Il ciclo if mi dava un pò di problemi, l'autorizzazione smtp era ok.

Grazie!

[Mr_Flash]

E invece non ho risolto niente...

ho notato che alla riga

objCDOSYSMail.To = "info@dominio.it"

se metto una mail allora lo script è ok

ma se metto una variabile (email, ossia quella che prende gli indirizzi dal database) lo script non funziona più e mi dice

error '8004020f'



Aiutatemi a risolvere!!!!

[lufo5]

ehmm.. hai provato a vedere cosa contiene la variabile?