Skicka meddelande till alla

8 svar · 194 visningar · startad av Ricki 11 juli 2000

RickiMedlem sedan juni 2000373 inlägg

Trådstart11 juli 2000 08:14#1

Tjena!
Jag håller på med ett script som gör att alla användare kan skicka meddelanden till varandra.

Som administratör skulle jag vilja göra massutskick, dvs skicka ett meddelande till alla användare, går det? Isåfall, hur gör man?

Min databas Ser ut såhär:

TillAnvandare
FranAnvandare
MeddelandeRubrik
Meddelande

Jag vill alltså skicka ett meddelande där TillAnvandare är alla användare. Jag hoppas ni förstår.

RickiMedlem sedan juni 2000373 inlägg

11 juli 2000 11:22#2

<%
'--------------------------------------------------------
' Öppna databasen
'--------------------------------------------------------
password = "***"
databas = "***.mdb"
DBPath = Server.Mappath(mid(Request.ServerVariables("PATH_INFO"),1,instrrev(Request.ServerVariables("PATH_INFO"), "\")) & databas)
Set MinCon=Server.CreateObject("ADODB.Connection")
MinCon.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & DBPath & ";uid=;pwd=" & password & ";"
Set databas = Server.CreateObject("ADODB.Recordset")

SQL = "SELECT * From MEDDELANDEN"
databas.Open SQL, MinCon, 1, 2

'--------------------------------------------------------
' Lägg till datat
'--------------------------------------------------------

databas.AddNew
databas("Datum")              = Request.Form("Datum")
databas("TillAnvandare")      = Request.Form("TillAnvandare")
databas("FranAnvandare")      = Request.Form("FranAnvandare")
databas("MeddelandeRubrik")   = Request.Form("MeddelandeRubrik")
databas("Meddelandet")        = Request.Form("Meddelandet")
databas("Status")             = "Oläst"
databas.Update

Response.Redirect "posten.asp?id=meddelanden"

databas.Close
%>

VideMedlem sedan dec. 19998 577 inlägg

11 juli 2000 11:28#3

Jag antar att du har en användartabell där du lagrar idnummer och annan personlig info... loopa igenom alla användare där:

SQL = "SELECT * From anvandare"
Set RS = databas.execute(SQL)

Do until RS.EOF

databas.AddNew
databas("Datum") = Request.Form("Datum")
databas("TillAnvandare") = RS("id")
databas("FranAnvandare") = Request.Form("FranAnvandare")
databas("MeddelandeRubrik") = Request.Form("MeddelandeRubrik")
databas("Meddelandet") = Request.Form("Meddelandet")
databas("Status") = "Oläst"
databas.Update

RS.MoveNext
Loop

Något sånt här borde väl fungera... iaf principen...

@ndersMedlem sedan juni 200032 967 inlägg

11 juli 2000 11:33#4

eller, så lägger du in meddelandet en gång till en fördefinierad mottagare som heter typ allaanvändare, och när folk ska få sina meddelanden så...

... where TillAnvändare = 'bengan' or TillAnvandare = 'allaanvändare' ...

så slipper man lägga in samma meddelande på alla användare, juh!

eller har jag missat nått?

jispirMedlem sedan maj 20011 343 inlägg

4 aug. 2000 09:04#5

Jag vet att det var längesedan detta var uppe!
Men jag tänkte bara fråga ricki om du har fått ordning på det och skulle ha lust att dela med dig av det.

RickiMedlem sedan juni 2000373 inlägg

4 aug. 2000 09:07#6

Nix, jag har inte klarat up det :(

PatrikBMedlem sedan mars 20002 836 inlägg

4 aug. 2000 10:48#7

Hello,

hur ser fälten ut i varje tabell??

//PatrikB

jispirMedlem sedan maj 20011 343 inlägg

4 aug. 2000 12:34#8

min tabell heter message och ser ut så här:

msgID -> räknare
msgTO -> tal
msgFROM -> tal
msgTEXT -> pm
datum -> datum/tid

Hoppas nån kan hjälpa mig och ricki.

AGMedlem sedan mars 20001 266 inlägg

5 aug. 2000 11:19#9

Tycker det borde gå att anväda samma princip som nummer 6 på följande adress http://www.idg.se/mikrodatorn/webbmastern/md9813/

Borde gå att använda för dina användare.

Testa iaf
Andreas