Körde nyligen ett script för massutskick. Tyvärr så fungerade det inte som det skulle. Det blev en mailbomb av det hela kan man säga. Medlemmar fick upp till 200 mail i sina inkorgar. Då undrar jag vad som kan ha varit fel. Använde mig av koden nedan.
Servern var Apache 1.3.28 med Sun's ASP one 4.0 på en win 2k pro plattform
<%
option explicit
dim msg, cst, connect, rs, name, senderEmail, subject, recipient, body
' if not request.servervariables("remote_host") = "213.100.193.68" then response.redirect "http://www.webnews.nu/"
server.scripttimeout = 3600
set msg = server.createobject("jmail.message")
cst = "driver={mysql}; server=;"
cst = cst & "uid=; pwd=; database=;option=16386"
set connect = server.createobject("adodb.connection")
connect.open cst
set rs = connect.execute("select username, password, namn2, epost, id from members order by id asc limit 0, 49")
do until rs.eof
recipient = ""
name = "noreply@ampy.net"
senderemail = "noreply@ampy.net"
subject = "Ampy Community"
recipient = rs(3)
body = "Hej " & rs(2) & "!" & vbcrlf
body = body & "Så här efter den fina sommaren med sol och bad vill vi passa på att påminna dig om att massor av nya tjänster "
body = body & "och överraskningar är på väg till Ampy Community under hösten som kommer. För er som inte har besökt "
body = body & "Ampy Community på ett tag rekommenderar vi starkt att ni tar en titt tillbaka. Kanske upptäcker ni att "
body = body & "Ampy Community är den bästa mötesplatsen ni har varit på, eller kanske att ni har vänner eller bekanta här. "
body = body & "Vi hoppas, och tror att Ampy Community kommer få en framgångsrik höst med många nya medlemmar och roliga minnen." & vbcrlf & vbcrlf
body = body & "Sommarens största nyhet här på Ampy Community är att en ny kille har börjat jobbat hos oss. Hans namn är "
body = body & "Sid (LR^evil.sid) och han har som uppgift att programmera nya tjänster. Redan nu har han startat en ny tävlingsavdelning "
body = body & "där nya roliga, men också svåra, hemmagjorda korsord utkommer flera gånger i månaden. Missa inte dem!" & vbcrlf & vbcrlf
body = body & "Om du inte minns ditt användarnamn eller lösenord så visas dem här nedan:" & vbcrlf & vbcrlf
body = body & "Användarnamn: "&rs(0)&" " & vbcrlf
body = body & "Lösenord: "&rs(1)&" " & vbcrlf & vbcrlf
body = body & "Mvh Andreas Ståhlfors" & vbcrlf
body = body & "25 augusti 2003" & vbcrlf
body = body & "www.ampy.net" & vbcrlf & vbcrlf
body = body & "Detta brev skickats ut till samtliga medlemmar och eventuella svar kommer inte att läsas. "
msg.logging = true
msg.silent = true
msg.from = senderemail
msg.fromname = name
msg.addrecipient recipient
msg.subject = subject
msg.body = body
response.write _
"Skickat till: " & rs(0) & _
"<br>Id: " & rs(4) & _
"<br>E-mail: " & recipient & _
"<br><br>|" & msg.log & "|<br><br>"
' if not msg.send("smtpserver.swip.net") then
' response.write "<pre>" & msg.log & "</pre>"
' else
' end if
rs.movenext
loop
rs.close
set rs = nothing
connect.close
set connect = nothing
%>