Spero qualcuno possa aiutarmi:

Devo inviare delle mail con ASPMail e finchè si tratta di estrarre tutti i nomi dal database e inviare a tutti la stessa mail non ho problemi.

Ma io vorrei usare un criterio di ricerca.

Ad esempio in un database ho utenti divisi per regione o per città quindi io vorrei selezionare quella città o quella regione specifica e inviare una mail solo a quegli indirizzi.

Ho provato ma non invia le mail vi posto lo script che ho provato.

L'altro script era un form con mascherina normale per l'inserimento del testo e la stringa con menu a discesa per la selezione in questo raccoglievo i dati per spedirli.

<%
dim cerca1
select case request("cerca1")
case "1"
cerca1=""
case "2"
cerca1="Trasporti"
case "3"
cerca1="Giornalistica"
case "4"
cerca1="Giornal/Trasporti"
case "5"
cerca1="Ferrovia"
case "6"
cerca1="Altro"
end select

dim conn
Set conn = Server.createObject("ADODB.Connection")
str_conn = "Provider = Microsoft.Jet.Oledb.4.0; Data Source ="&_
Server.MapPath("mail.mdb")
conn.open str_conn
sql="SELECT email FROM utenti WHERE tipo_az =""&cerca1&"""
set rs= Server.Createobject("ADODB.Recordset")
rs.open sql,conn
do until rs.eof

Tempemail=rs("email")

dim stremailmitt,strnome,strogg,strbody,strhost

stremailmitt= request.form("emailmitt")
strnome= request.form("nome")
strogg= request.form("ogg")
strbody= request.form("body")
strhost="smtp.libero.it"

Set objASPEMail = Server.CreateObject("Persits.MailSender")
objASPEMail.Host = strhost
objASPEMail.From = stremailmitt
objASPEmail.FromName=strnome
objASPEMail.AddAddress ""&Tempemail&""
objASPEMail.Subject = strogg
objASPEMail.Body = strbody
' impediamo di dare un errore in caso di mancato invio
On Error Resume Next
objASPEMail.Send()

if err.number <>0 then
response.write "<p>invio non riuscito: <br>"& err.description
else
response.write "<p>invio completato dell'indirizzo: "&rs("email")&"<br>"
end if

set objASPEmail = NOTHING
rs.movenext
loop
%>





Grazie

Rossella