Sender den samme besked 2000 gange?

Hej ekspeter ;)
Jeg er igang med at lave en portal, hvor mine brugere skulle kunne sende en besked til alle på deres filter. Min kode ser pt. sådan herud: <%     
' Database connection til filter
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("/medlemmer/databas/databas.mdb")
Set rs1 = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM filter where brugerid='"&session("id")&"' order by dato"
rs1.Open Addera, Connect, 3, 3

if rs1.eof then
response.write "<i>Du har ingen brugere på dit filter!</i><br>"
else
do until rs1.eof 
%>

<%
' Database connection til GB
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("/medlemmer/databas/databas.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM gb where afsenderid='"&request.querystring("id")&"' order by id desc"
rs.Open Addera, Connect, 3, 3

' Gem beskeden i gæstebogen
rs.addnew
rs("afsender")=session("user")
rs("besked")=request.form("besked")
rs("privat")=request.form("privat")
rs("modtager")=rs1("filter")
rs("modtagerid")=rs1("filterid")
rs("afsenderid")=session("id")
rs("ipskrevet")=Request.ServerVariables("REMOTE_ADDR")
rs("tid") = FormatDateTime(Now, vbShortTime)
rs("dato") = FormatDateTime(Now, vbShortDate)
rs.update
%>

<%
' Næste bruger på favoritlisten
rs.movenext
loop
end if
%>

Men når jeg kører koden gentager den 2000 gange altså beskeden man har skrevet til dem på filteret bliver sendt 2000 gange? Det er som den ikke registrere hvor mange der er på filteret.