---
title: "Skicka meddelande till ALLA användare"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/82348-skicka-meddelande-till-alla-användare"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Melea"
published: "2003-07-19T19:53:55.000Z"
updated: "2003-07-21T11:59:51.000Z"
replies: 8
views: 321
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/82348-skicka-meddelande-till-alla-användare"
---

# Skicka meddelande till ALLA användare

## #1 — Melea, 2003-07-19T19:53Z

Hejsan!

Jag jobbar som sagt på ett meddelande script som gör att medlemmarna kan skicka meddelande till varandra and so on...

Nu vill jag alltså som administratör kunna skicka meddelanden till **ALLA** användare...

Jag har tyvärr inte en aning om hur jag ska lyckas med detta :)

Så här ser iaf koden ut i nuläget:

```
<!-- #include file="adovbs.inc" -->
<!-- #include file="../../data.inc" -->
<%
dim struserTO, struserFROM, strTopic, strText, strDatum, strIP
struserTO = Request.Form("userTO")

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={MySQL ODBC 3.51 Driver};server="&strserver&";uid="&struser&";pwd="&strpass&";database="&strdb&"" 
Set RecSet = Server.CreateObject("ADODB.Recordset")

MySQL = "SELECT * FROM members where username = '"& struserTO &"'"
Set RecSet = Connect.Execute(MySQL)

If NOT RecSet.EOF then

struserFROM = Request.Form("userFROM")
strtopic = Request.Form("topic")
strtext = Request.Form("text")
strdatum = Hour(Time) & ":" & Minute(Time) & ":" & Second(Time)
strIP = Request.ServerVariables("REMOTE_ADDR")
sql = " insert into message(userTO, userFROM, Topic, Text, Datum, IP) "  & " values('" & struserTO & "','" & struserFROM & "', '" & strtopic & "','" & strtext & "','" & strdatum & "','" & strIP & "') "
Connect.Execute sql,,128

dim struserTO2, struserFROM2, strTopic2, strText2, strDatum2, strIP2
struserTO2 = Request.Form("userTO")
struserFROM2 = Request.Form("userFROM")
strtopic2 = Request.Form("topic")
strtext2 = Request.Form("text")
strdatum2 = Hour(Time) & ":" & Minute(Time) & ":" & Second(Time)
strIP2 = Request.ServerVariables("REMOTE_ADDR")
sql = " insert into message_outbox(userTO, userFROM, Topic, Text, Datum, IP) "  & " values('" & struserTO2 & "','" & struserFROM2 & "', '" & strtopic2 & "','" & strtext2 & "','" & strdatum2 & "','" & strIP2 & "') "
Connect.Execute sql,,128

Session("fel") = "Meddelandet är nu skickat till " & Request.Form("userTO") & ". "
Response.Redirect("../message_send.asp")
else 
Session("fel") = "Det finns ingen med det användarnamnet"
Response.Redirect "../message_send.asp"
end if
%>
```

Tacksam för svar! ;)

MVH Jonas "Mellow" Stenberg

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

## #2 — Melea, 2003-07-20T08:54Z

Ingen som har ork att kolla den här? :(

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

## #3 — cyprys, 2003-07-20T09:27Z

Du får helt enkelt lov att skapa en funktion till dig själv som loopar igenom samtliga medlemmar och skapar en post för varje medlem.

```
ex.
IntadminID = 1
StrMessage = "Här är ett meddelande"
Set Rs = conn.execute("SELECT id FROM members")
do until Rs.Eof
  conn.execute("INSERT INTO messages (from, to, mess) VALUES("& IntadminID &", "& rs("id") &", '" & StrMessage & "'")
Rs.MoveNext
Loop
```

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

## #4 — Melea, 2003-07-20T09:46Z

Mm Tack så hemskt mkt...

För er som är intresserade hur koden blev så har ni den här:

```
<!-- #include file="adovbs.inc" -->
<%
dim struserTO, struserFROM, strTopic, strText, strDatum, strIP
struserTO = Request.Form("userTO")
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "Driver={MySQL ODBC 3.51 Driver};server=localhost;uid=xxx;pwd=xxx;database=xxx" 
Set RecSet = Server.CreateObject("ADODB.Recordset")

If Request.Form("userTO") = "tillallaanvandare" then

MySQL = "SELECT * FROM members"
Set RecSet = Connect.execute(MySQL)

Do Until RecSet.EOF

dim struserTO3, struserFROM3, strTopic3, strText3, strDatum3, strIP3
struserTO3 = RecSet("username")
struserFROM3 = Request.Form("userFROM")
strtopic3 = Request.Form("topic")
strtext3 = Request.Form("text")
strdatum3 = Hour(Time) & ":" & Minute(Time) & ":" & Second(Time)
strIP3 = Request.ServerVariables("REMOTE_ADDR")
sql = " insert into message(userTO, userFROM, Topic, Text, Datum, IP) "  & " values('" & struserTO3 & "','" & struserFROM3 & "', '" & strtopic3 & "','" & strtext3 & "','" & strdatum3 & "','" & strIP3 & "') "
Connect.Execute sql,,128

RecSet.Movenext
Loop

Session("msg") = "Meddelandet är nu skickat till " & Request.Form("userTO") & ". "
Response.Redirect("../message_send.asp")

End If

MySQL = "SELECT * FROM members where username = '"& struserTO &"'"
Set RecSet = Connect.Execute(MySQL)

if not RecSet.EOF then

struserFROM = Request.Form("userFROM")
strtopic = Request.Form("topic")
strtext = Request.Form("text")
strdatum = Hour(Time) & ":" & Minute(Time) & ":" & Second(Time)
strIP = Request.ServerVariables("REMOTE_ADDR")
sql = " insert into message(userTO, userFROM, Topic, Text, Datum, IP) "  & " values('" & struserTO & "','" & struserFROM & "', '" & strtopic & "','" & strtext & "','" & strdatum & "','" & strIP & "') "
Connect.Execute sql,,128

dim struserTO2, struserFROM2, strTopic2, strText2, strDatum2, strIP2
struserTO2 = Request.Form("userTO")
struserFROM2 = Request.Form("userFROM")
strtopic2 = Request.Form("topic")
strtext2 = Request.Form("text")
strdatum2 = Hour(Time) & ":" & Minute(Time) & ":" & Second(Time)
strIP2 = Request.ServerVariables("REMOTE_ADDR")
sql = " insert into message_outbox(userTO, userFROM, Topic, Text, Datum, IP) "  & " values('" & struserTO2 & "','" & struserFROM2 & "', '" & strtopic2 & "','" & strtext2 & "','" & strdatum2 & "','" & strIP2 & "') "
Connect.Execute sql,,128

Session("msg") = "Meddelandet är nu skickat till " & Request.Form("userTO") & ". "
Response.Redirect("../message_send.asp")
else 
Session("msg") = "Det finns ingen med det användarnamnet"
Response.Redirect "../message_send.asp"
end if
%>
```

Sen funkar det så att om jag skriver "tillallaanvandare" i userTO formuläret så skickas meddelandet till ALLA användare...

Som ni ser har jag också gjort så alla meddelanden sparas i "message_outbox" för att de inte ska bli borttagna om ena parten tar bort sitt meddelande.

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

## #5 — solbulle, 2003-07-20T13:32Z

Lite OT, men är det där all kod på sidan?
Varför inkluderar du adovbs.inc?

red/ fel av mig...

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

## #6 — Melea, 2003-07-20T21:44Z

Har inte en aning varför jag inkluderar abovbs.inc, ibland måste man ha den (tydligen?)... inte vet jag :D

Är självlärd när det gäller asp, har prövat mig fram, därför jag inte kan alla uttryck o konstiga ord :P

Btw. OT = ? :)

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

## #7 — voigtann1, 2003-07-20T22:25Z

OT = Off-Topic

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

## #8 — solbulle, 2003-07-20T23:23Z

adovbs.inc innehåller konstanter, oftas när man behöver den är det när man skapar ett recordset som så här:

```
sql= "SELECT * FROM medlem ORDER BY Enamn"
RecSet.Open sql, Connect, adOpenStatic, adLockOptimistic
```

I detta fall är då: adOpenStatic samt adLockOptimistic konstanter som får sitt värde från just adovbs.inc, men... du kan lika gärna deklarera dessa värden direkt:

```
sql= "SELECT * FROM medlem ORDER BY Enamn"
RecSet.Open sql, Connect, 3, 3
```

På så sätt slipper du att inkludera den filen.

Vad jag kan se använder du dig inte av någon av konstanterna över huvud taget i din kod...

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

## #9 — Melea, 2003-07-21T11:59Z

Okej, tack så mkt! :)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/82348-skicka-meddelande-till-alla-användare