800 Point ? Mail hjælp....
Hejsa....Så er der 800 point til den ekspert der kan hjælpe mig.
Jeg er nemlig begyndt af få problemer med mit mailingliste script... Der er snart over 3000 tilmeldte mail adresser og så mange kan scriptet ikke klare på en gang.
Derfor vil jeg godt have det lavet sådan at den kun udsender 40 mails af gangen og når de først er sendt så tager den de næste 40 mails i databasen osv... Er der en ekspert der kan klare det ? Eller har i en anden løsning der kan klare mit prøblem ?
Her er mit mailingliste script:
------KODE START-------
<HTML>
<HEAD>
<TITLE>Mailingliste</TITLE>
</HEAD>
<BODY BGCOLOR=\"#FFFFFF\" TEXT=\"#000000\">
<%
if request(\"mode\") = \"send\" then
mailertype = 1
Set Conn = Server.CreateObject(\"ADODB.Connection\")
conn.Open \"DBQ=\"&(Server.MapPath(\".\")) &\"\\mailing.mdb; DefaultDir=DBQ=\"&(Server.MapPath(\".\")) &\"\\;Driver={Microsoft Access Driver (*.mdb)};\"
SQL = \"SELECT * from mailingliste\"
set send = conn.execute( SQL )
do while not send.eof
on error resume next
if mailertype = 1 then
Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
JMail.ServerAddress = \"din.mail.server\"
JMail.Charset = \"iso-8859-1\"
JMail.ContentTransferEncoding = \"8bit\"
JMail.Sender = \"afsenders emailadresse\"
JMail.Subject = request(\"header\")
JMail.AddRecipient send(\"email\")
JMail.Body = request(\"tekst\")
JMail.Priority = 3
JMail.Execute
set JMail = nothing
end if
response.write \"<FONT FACE=\'Arial\' SIZE=\'2\' COLOR=\'#000000\'><STRONG>E-mail er sendt til : \"& send(\"email\") &\"</STRONG></FONT><BR>\"
send.movenext
loop
conn.close
else %>
<CENTER>
<TABLE BORDER=\"0\">
<form action=\"write_send.asp\" METHOD=\"POST\">
<INPUT TYPE=\"hidden\" NAME=\"mode\" VALUE=\"send\">
<TR>
<TD ALIGN=\"LEFT\">
<FONT FACE=\"Arial\" SIZE=\"2\" COLOR=\"#000000\"><STRONG>
Overskrift:
</STRONG></FONT>
</TD>
<TD ALIGN=\"LEFT\">
<INPUT TYPE=\"TEXT\" NAME=\"header\" SIZE=\"50\">
</TD>
</TR>
<TR>
<TD ALIGN=\"RIGHT\" VALIGN=\"TOP\">
<FONT FACE=\"Arial\" SIZE=\"2\" COLOR=\"#000000\"><STRONG>
Tekst:
</STRONG></FONT>
</TD>
<TD ALIGN=\"LEFT\">
<TEXTAREA COLS=\"45\" ROWS=\"15\" NAME=\"tekst\"></TEXTAREA>
</TD>
</TR>
<TR>
<TD ALIGN=\"LEFT\">
</TD>
<TD ALIGN=\"RIGHT\">
<input type=\"submit\" value=\"-- SEND --\">
</TD>
</TR>
</FORM>
</TABLE>
</CENTER>
<center><a href=slet.asp>Slet bruger</a>
<% end if %>
</BODY>
</HTML>
-----KODE SLUT------
HJÆLP :-)
