ma la ricerca è fuori uso..
faccio una mailing list e vorrei che il link che appare in coda mi riporti il codice cliente per l'eventuale cancellazione dell'indirizzo. Il problema è che mi va in errore, e ho capito che il problema è il passaggio del valore del campo codcli.. ma ho provato varie sintassi e non ne vengo fuori..
chi mi aiuta?
grazie
Nick
str = "SELECT email, codcli FROM Online_Anagrafica where email like '%@%' or sito_internet like '%@%'"
rst.open str, CONNSERVER2003,3,3
subject = Request.Form("subject")
message = Request.Form("message")
Hfrom = "unitelm@unitelm.it"
Set objCDO = Server.CreateObject("CDO.Message")
no = 0
do until rst.eof
objCDO.From = Hfrom
objCDO.To = rst("email")
objCDO.Subject = subject
TextBody= message & "
Se non vuole più ricevere e-mail clicchi ' >qui"
objCDO.HTMLBody= Textbody
objCDO.Send
rst.movenext
no = no +1
loop
response.Write("sono state spedite "& no & " e-mail.")
Set objCDO = Nothing
rst.Close
%>