Vi elenco il mio problema,per poter utilizzare lo script devo far creare all'amministratore web un dsn adobd,vorrei evitare questo,e' possibile modificando la conessione,esser autonomo...!!!!


<%
'Mi collego al db ed estraggo gli indirizzi email
Dim rs, conn, sql
Set rs = Server.CreateObject("ADODB.Recordset")
conn = "DSN=email;"
sql = "SELECT email FROM tabella"
rs.Open sql, conn

'Inserisco dentro la variabile bcc tutti i destinatari
x = 0
do until rs.eof
x = x + 1
if x = 1 then
bcc = rs("email")
else
bcc = bcc & ", " & rs("email")
end if
rs.moveNext
loop
rs.close
Set rs = Nothing

'Invio l'email
Dim miaMail
Set miaMail = CreateObject("CDONTS.NewMail")

miaMail.From = "netsurfing2000@libero.it"
miaMail.To = "destinatario@della.mail"

miaMail.bcc = bcc

miaMail.Subject = "Novita' NetSurfing2000"
miaMail.BodyFormat = 0
miaMail.MailFormat = 0

miaMail.Body = "Testo della mail"
miaMail.Send

Set miaMail = Nothing
%>