ho un problema con l'invio e-mail:
devo inviare delle e-mail a delle strutture turistiche presente nel sito, queste e-mail sono in un database access tabella "email" sembre in questo databasse ho la tabella "num_stelle".
Devo creare una query che selezioni solo le e-mail di interesse esempio:
L'utilizzatore del sito desidera inviare una richiesta di soggiorno a tutti gli hotel 3 stelle presenti nel sito.
Lo script che uso io per l'invio funziona ma il problema è che le e-mail arrivano a tutte le strutture e aziende registrate nel sito poichè non ci sono solo hotel.

questo è lo script che utilizzo per l'invio:

<%
opemail = request.form("opemail")
mittente = request.form("mittente")
email = request.form("email")
tel = request.form("tel")
if tel = "" then tel = "-" end if
mess = request.form("mess")

dim objmail

Set Conn = Server.CreateObject("ADODB.Connection")
RSConnect = "dsn=MailingListDB"
Conn.Open RSConnect
Set rsEmails=Conngen.Execute("Select email From Operatori")
Do While not rsEmails.eof
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From="mittente"
objMail.To=rsEmails("email")
objMail.Subject="Prova e-mail"
objMail.Body="Questa è una prova di spedizione e-mail"
objMail.importance=0
objMail.Send
Set objMail = nothing
rsEmails.movenext
loop
set rsEmails = nothing
Conn.close
Set Conn = nothing

%>