02. august 2006 - 22:55
Der er
2 kommentarer og
1 løsning
udsend besked til alle brugere
Hey!
har desværre 0 point lige nu så point kan ikke tjenes her, men du er alligevel velkommen til at hjælpe ;)
Jeg har en database hvor der er en tabel med brugernavn osv.
har også en send funktion, men ville vide hvordan man sender en besked ud til alle brugere? det er et internt besked system
det virker sådan at den finder beskeder med en where brugernavn = bla bla
02. august 2006 - 23:04
#1
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
%>
