udsend besked til alle brugere

Hej, i stedet for point kan du vel give et godt karma :-) Jeg vil gerne hjælpe dig...

Først skal vi loppe dine brugere i gennem.

<%
' Ret disse variabler så de passer med databasen
strBrugertabel = "brugere"
strBeskedtabel = "beskeder"

' Åbner databasen
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("database.mdb")

Set rs = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM " & strBrugertabel & ""
rs.Open Addera, Connect, 3, 3

if rs.eof then
response.write("Ingen brugere")
else
do until rs.eof

Set rsAdd = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM " & strBeskedtabel & ""
rsAdd.Open Addera, Connect, 3, 3

rsAdd.addnew
' Ret disse så de passer til din database - går ud fra du har lavet form
rsAdd("brugernavn") = rs("brugernavn")
rsAdd("besked") = request.form("besked")
rsAdd.update
rsAdd.close

rs.movenext
loop
end if
%>

mange tak :-D  har givet god karma ;D

Okay, det var godt du fik det til at virke :-)