CDonts skicka til fler

[pellsäter]

Denna koden gör bara att den första eposten får email....ser ni nåt fel


<font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#FFFFFF"><% epost = request.form("epost")

%>

<%


Set mail = Server.CreateObject("CDONTS.NewMail")
mail.Subject = Request.form("amne")
mail.Body = Request.Form("meddelande")
mail.From = "info@xxx.com"
mail.Host = "mail.xxx.com"
mail.To = "Kundlista@xxx.com"

epost = request.form("epost")
if instr(epost, ",") >0 then
for each item in request.form("epost")
mail.bcc = item
next
else
mail.bcc = "" & epost & ""
end if

mail.Send
set mail = Nothing
%></font>

[Engine^]

Set mail = Server.CreateObject("CDONTS.NewMail")
mail.Subject = Request.form("amne")
mail.Body = Request.Form("meddelande")
mail.From = "info@xxx.com"
mail.Host = "mail.xxx.com"
mail.To = "Kundlista@xxx.com"

If InStr(epost, ",") > 0 Then
epost = Replace(epost, ",", ";")
End If

mail.bcc = epost

mail.Send
set mail = Nothing

[pellsäter]

tack för dte