cdsoys in javascript

[remiok]

salve a tutti,
ho un problemone con il cdsoys in quanto ho trovato un codice in vbsript in internet e ho provato ad adattarlo un pò ma con ridultati pessimi

questo è il codice adattato in javascipt

<%@ Language=JavaScript%>

<%

Dsn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+Server.MapPath("/database")+"/dbwireless.mdb;"

Conn = Server.CreateObject("ADODB.Connection")

Conn.Open(Dsn)


var sql="SELECT email FROM tblutente WHERE news=1;";

Conn.Execute(sql);
messaggio=Request.Form("comm");



myMail=Server.CreateObject("CDO.Message");

myMail.Subject="Sending email with CDO";

myMail.From="remiok@wireless2006.net";

myMail.To="remiok@email.it";

myMail.TextBody=messaggio;

myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2;

//Name or IP of remote SMTP server
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="mail.wireless2006.net";

//Server port
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25;

//myMail.Configuration.Fields.Update

myMail.Send()


Response.Write("<script>alert('messaggio inviato')</script>")

Response.Redirect ("../asp/homeita.asp");
%>

il sito si chiama www.wireless2006.net
e se provate ad andare a contattami ritorna un errore 500 errore del server interno

ma il codice in locale funziona...
uso come provider solodomini.it

aiutatemi perfavore.........

[fede_00]

non capisco che c'entra la direttiva Javascript

nel link indicato la pagina contatti chiede la registrazione al sito

[remiok]

Dsn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+Server.MapPath("/database")+"/dbwireless.mdb;"

Conn = Server.CreateObject("ADODB.Connection")

Conn.Open(Dsn)


var sql="SELECT email FROM tblutente WHERE news=1;";

//Conn.Execute(sql);

rs = Server.CreateObject("Adodb.RecordSet");

rs.Open(sql,Conn);
messaggio=Request.Form("comm");


var cdoMessage = new ActiveXObject("CDO.Message");
cdoMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost";
cdoMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25;
cdoMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2;
cdoMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10;

cdoMessage.Configuration.Fields.Update();

cdoMessage.From = "mittente@wireless2006.net";
cdoMessage.To = "destinatario@email.it";
cdoMessage.Subject = "- Email dal Sito Web -";
cdoMessage.TextBody = messaggio;
cdoMessage.send()




questo funziona, solo che volevo inviare a + destinatari invece c\he a uno solo

gli indirizzi ritornano tutti
var sql="SELECT email FROM tblutente WHERE news=1;";
e per l'invio

grazie a tutti

[fede_00]

var sql="SELECT email FROM tblutente WHERE news=1;"
set rs = Conn.Execute(sql)
....
....
....
.....

if not rs.eof then
while not rs.eof
'qui ci va il codice dell'invio della mail
'......
'questa riga invia a tutte le righe recuperate dal recordset
cdoMessage.To = rs("email")
'........
rs.movenext
wend
else
'eventuale gestione recordset vuoto
end if

rs.close

'chiusura oggetto rs, connessione, ecc..