Allora posto il mio primo problema..
nn va la newsletter..il codice è:
<%
strconn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("mdb-database/lb.mdb") & ";Persist Security Info=False"
set cn= server.createobject("ADODB.connection")
Set rsc = Server.CreateObject("ADODB.Recordset")
cn.open strconn
sz_sql= "select * from utenti"
rsc.open sz_sql,cn
do while not rsc.eof
'*** invio mail
invioA = rsc("email")
invioDa = "Last Bid"
corpoMessaggio = request.form("txtMess")
Dim iMsg, iConf, Flds
'Crea l'oggetto email
Set iMsg = CreateObject("CDO.Message")
'Crea l'oggetto configurazione
Set iConf = CreateObject("CDO.Configuration")
'Impostazione delle configurazioni per l'invio remoto
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True
'Spedizione: mittente, destinatario, oggetto, messaggio
mittente = "
[email protected]"
destinatario = invioA
oggetto = request.form("txtOgg")
messaggio = corpoMessaggio
With iMsg
'Assegnazione delle configurazioni
Set .Configuration = iConf
.From = mittente
.To = destinatario
.Subject = oggetto
'Formato HTML
.HTMLBody = messaggio
'Formato testo (scegliere)
'.TextBody = messaggio
'Invia l'email
.Send()
end with
set Flds = Nothing
set iConf = Nothing
set iMsg = Nothing
rsc.movenext
loop
response.redirect("adm_gest_master.asp")
%>
Saluti.