Ho creato un piccolo sistema che estrapola gli indirizzi email da un file di testo ed invia loro una email.
Il problema che sto avendo è il seguente: sotto la mail ho creato un link che serve per disiscriversi ma nonostante nella funzione passo il parametro corretto (in quanto il file scorre nella lettura) nel link viene sempre visualizzato solo il primo record invece che il record corretto.
Posto il codice
<%
data = Date()
mittente = Request("mittente")
emailmit = Request("emailmit")
oggetto = Request("oggetto")
filename = Request("filename")
testomail= Request("FCKeditor1")
testomail = testomail &"
<font face=Arial size=2>"&"Informativa ai sensi del Dlgs 196/03 (Codice Privacy): Ricevi questa email perchè sei iscritto al nostro servizio di mailing."&_
"Per non ricevere altre comunicazioni e CANCELLARE TUTTI I TUOI DATI DAL NOSTRO DATABASE, clicca sulla scritta [link]" & "</font></p>"
allegato = Request("allegato")
lettura = Request("lettura")
function invioemail(indmail)
link = "<a href=delmail.asp?email=[email]&lista="& filename &">REMOVE</a>"
testomail = Replace(testomail,"[data]","" & data &"")
testomail = Replace(testomail,"[link]","" & link &"")
testomail = Replace(testomail,"[email]","" & indmail &"")
Set objMail = CreateObject("CDO.Message")
objMail.From ="" & mittente &"<"& emailmit &">"
objMail.To = "" & email &""
objMail.Subject = "" & oggetto &""
objMail.HTMLBody = ""& testomail &""
objMail.Fields.Update()
objMail.Send()
Set objMail = Nothing
end function
Set FileObject=CreateObject("Scripting.FileSystemObjec t")
MioFile=Server.MapPath("/public/filevari/" & filename & "")
Set InStream=FileObject.OpenTextFile(MioFile,1,True)
totrec=0
Do While Not InStream.AtEndOfStream
totrec = totrec + 1
riga = InStream.ReadLine()
invioemail(riga)
Response.Flush
Response.Write "" & totrec &". Email spedita con successo a: " & riga &"
"
Response.Write "
" & invioemail(email) &"</p>"
Loop
InStream.Close
Set InStream=Nothing
Set FileObject=Nothing
Response.End
%>
Rispondi quotando
