Dele e-mail op i 30 adgangen !
Hej Eksperter !Jeg har system der udfra en database henter e-mail adresser til mit nyhedsystem. Kan man lave sådan man sender eks. 30 adgangen. Den mail server jeg bruger desværre lidt følsom.
Her min kode ... Den virker med skal bare have dem delt op.
Håber en vil hjælpe med at sætte det ind.
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=d:\\home\\domaindk\\db\\users.mdb\"
if sex = \"A\" AND alder = \"2\" then
strQuery = \"SELECT * FROM tblUserskld WHERE emailnews = \'Ja\' AND aktiv = \'Ja\' AND Cpr >= #\" & DateAdd(\"yyyy\",-18,Now) & \"#\"
elseif sex = \"A\" AND alder = \"1\" then
strQuery = \"SELECT * FROM tblUserskld WHERE emailnews = \'Ja\' AND aktiv = \'Ja\' AND Cpr < #\" & DateAdd(\"yyyy\",-18,Now) & \"#\"
elseif alder = \"1\" then
strQuery = \"SELECT * FROM tblUserskld WHERE sex = \'\" & sex & \"\' AND emailnews = \'Ja\' aktiv = \'Ja\' AND Cpr < #\" & DateAdd(\"yyyy\",-20,Now) & \"#\"
elseif alder = \"2\" then
strQuery = \"SELECT * FROM tblUserskld WHERE sex = \'\" & sex & \"\' AND emailnews = \'Ja\' aktiv = \'Ja\' AND Cpr >= #\" & DateAdd(\"yyyy\",-20,Now) & \"#\"
elseif alder = \"0\" AND sex = \"A\" then
strQuery = \"SELECT * FROM tblUserskld WHERE aktiv = \'Ja\' AND emailnews = \'Ja\'\"
elseif alder = \"0\" AND sex = \"K\" OR alder = \"0\" AND sex = \"M\" then
strQuery = \"SELECT * FROM tblUserskld WHERE aktiv = \'Ja\' AND emailnews = \'Ja\' AND sex = \'\" & sex & \"\'\"
end if
Set RS = Conn.Execute(strQuery)
If Not (rs.BOF Or rs.EOF) Then
send = \"true\"
Do While Not rs.EOF
navn = rs(\"username\")
if hvad = \"0\" then
Jmail.Sender = \"post@domain.dk\"
JMail.Subject = \"Nyhed fra www.domain.dk\"
JMail.Body = besked
Jmail.AddRecipient \"post@domain.dk\"
Jmail.AddRecipientBCC \"\" & rs(\"email\")
JMail.Priority = 3
response.write \"\" & rs(\"email\") & \" - \" & navn &\"<br>\"
end if
RS.movenext
loop
else
session(\"fejl\") = \"Der var ingen at sende til. Prøv med et andet køn osv..<br>\"
Response.Redirect \"email.asp?mode=fejl\"
END IF
RS.Close
Set RS = Nothing
if send = \"true\" then
JMail.Execute
end if
Set JMail = Nothing
elseif mode = \"fejl\" then
response.write \"\" & session(\"fejl\") & \"\"
end if
%>
