---
title: "Problem med nyhetsbrev"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/13331-problem-med-nyhetsbrev"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Korak"
published: "2001-12-23T12:16:00.000Z"
updated: "2001-12-23T14:16:00.000Z"
replies: 3
views: 173
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/13331-problem-med-nyhetsbrev"
---

# Problem med nyhetsbrev

## #1 — Korak, 2001-12-23T12:16Z

Jag har ett nyhetsbrev i asp som använder sig av Jmail.
Jag har ca. 500 prenumeranter.
Problemet är att väldigt ofta när jag skickar iväg ett nyhetsbrev så kommer det bara till de 200-300 första prenumeranterna.
Det ska komma ett meddalnde att "Brevet är skickat", men ofta så tar det väldigt lång tid och till slut så blir det "sidan kan inte visas..." innan brevet hunnit skickas till alla.
Finns det något sätt jag kan förbättra i koden för att göra det stabilare?
Koden som skickar ser ut såhär:

```
<%
response.buffer = true
Server.ScriptTimeout = 1000000

dim useraction,subject,comm,emails,conn,rs,sql
dim totalMails

Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Conn.Open dsn
SQL = "SELECT emails from emails"
rs.Open SQL, Conn, 1, 3
totalMails = rs.recordcount

useraction=request("action")
select case useraction
case "send"
	Set Conn = Server.CreateObject("ADODB.Connection")
	Set Rs = Server.CreateObject("ADODB.Recordset")
    Conn.Open dsn
    SQL = "SELECT emails from emails order by id"
	rs.open sql,conn
	do while not rs.eof
		emails=rs("emails")
		subject = request.form("subject")
		comm = request.form("comm")
		Dim msg
		Set msg = Server.CreateObject("JMail.SMTPMail")
                msg.ServerAddress = "smtp.digikom.net"  
		msg.AddRecipient emails
		msg.Sender = "mail@www.com"
                msg.SenderName = "Homepage"		
		msg.Subject = subject
		msg.body = comm
		msg.Execute
		rs.movenext
	loop
	set msg = nothing
	rs.close
	set rs = nothing
	conn.close
	set conn = nothing
	response.write "<script>alert('Brevet är skickat!');"
	response.write "location.href='send.asp'</script>"
	response.end
end select
rs.close
	set rs = nothing
	conn.close
	set conn = nothing
%>
```

Permalänk: https://www.webforum.nu/p/13331

## #2 — OveRRidE, 2001-12-23T13:33Z

```
smtp.digikom.net
```

Klarar mailservern av att leverera? :q

Permalänk: https://www.webforum.nu/p/301483

## #3 — jorgen, 2001-12-23T13:58Z

Hej,

det bästa är att använda en komponent som kör ett kösystem på servern istället för att låta applicationen vänta till den kan skicka nästa meddelande.

mvh Jörgen :)

Permalänk: https://www.webforum.nu/p/301484

## #4 — Korak, 2001-12-23T14:16Z

Tackar!
Har mailat supporten på mitt webhotell och frågat hur jag ska gå till väga för att kunna använda mig av denna komponent.

Permalänk: https://www.webforum.nu/p/301485

---

Tråden på webben: https://www.webforum.nu/amne/asp/13331-problem-med-nyhetsbrev