---
title: "Skicka infobrev internt"
type: "forum-thread"
url: "https://www.webforum.nu/amne/databaser-sql/143766-skicka-infobrev-internt"
topic: "Databaser & SQL"
topic_url: "https://www.webforum.nu/amne/databaser-sql"
author: "WebbisNet"
published: "2006-03-11T15:57:43.000Z"
updated: "2006-03-12T19:46:05.000Z"
replies: 16
views: 382
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/databaser-sql/143766-skicka-infobrev-internt"
---

# Skicka infobrev internt

## #1 — WebbisNet, 2006-03-11T15:57Z

Försöker hitta ett sätt att skicka ett internt mail till alla medlemmar men får inte till hur man ska göra

Med denna kod (bara relevant kod här)

```
set mailRS=objConn.execute("SELECT userID, mailID, email, username, Headline, sender, message, mailDate "&_
"FROM tblUsers INNER JOIN tblUsers_imail ON tblUsers.userID = tblUsers_imail.reciever "&_
"WHERE reciever="& varReciever)

Dim objConn, SQL, bSQL, updateSQL
Dim userID,varSender, varReciever,varHeadline,varMessage, varDatum
Dim txtSender, txtReciever, txtHeadline,txtMessage, txtDatum

		varSender = FriendlySQL(Request.Form ("txtSender"))
		[B]varReciever = do until mailRS.eof
						mailRS("userID")
					mailRS.MoveNext: Loop[/B]
		varFrom = FriendlySQL(Request.Form ("from"))
		varName=request("toUser")
		varMailID = FriendlySQL(Request.Form ("txtMailID"))
		varHeadline = FriendlySQL(Request.Form ("txtHeadline"))
		varDatum = FriendlySQL(Request.Form ("txtDatum"))
		varTime = Time()
		varString = Session("username") & " skrev: <br>"
		varMessage = FriendlySQL(Request.Form("txtMessage"))
		varMessage1 = varString & varMessage
```

  

får jag
Microsoft VBScript compilation error '800a03ea' 

Syntax error 

/mail/save-toAll.asp, line 18 

varReciever = do until mailRS.eof
\--------------^

Hur ska man skriva???

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

## #2 — tydal, 2006-03-11T16:27Z

Vad vill du lägga i varReciver\[sp\]?

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

## #3 — WebbisNet, 2006-03-11T16:32Z

> **tydal skrev:**
>
> Vad vill du lägga i varReciver\[sp\]?

Jag vill lägga alla användarid-n där så att varje registrerad medlem får ett mail

så istället för att skicka ett mail till en medlem så ska ett mail till alla användare i databasen

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

## #4 — tydal, 2006-03-11T16:39Z

Jag tycker fortfarande det är lite rörigt. varReciver är ju en sträng och ingen array, och du har redan använt den till annat. Dessutom används den ju inte mer i de delar av koden som du säger är relevanta, så vad är det sen som görs med varReciver?

Är det ett e-postmeddelande du ska skicka, eller ska det bara skapas en rad i någon maildatabas?

Om det är det senare kan det ju vara lämpligt att skapa den raden i loopen som går igenom mailRS.

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

## #5 — WebbisNet, 2006-03-11T16:42Z

Det ska bara skapas ett mail i databasen och sen längre ner så ska ett E-postmeddelande gå ut om att man har ett nytt PM (internt mail)

Hur ska jag skriva då??

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

## #6 — tydal, 2006-03-11T16:45Z

do until mailRS.eof
  ' skapa ett mail för mailRS("userID")
  mailRS.MoveNext
Loop

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

## #7 — WebbisNet, 2006-03-11T16:48Z

var ska jag lägga den koden om jag inte ska ha den där jag har nu, skickar med hela koden

```
<%if not UserID <> "" then
response.write "Sessionen avslutades tyvärr, gå gärna tillbaka och kopiera ditt meddelande "
response.write "och logga in igen och klistra sedan in texten i mailet och skicka igen"
else

set mailRS=objConn.execute("SELECT userID, mailID, email, username, Headline, sender, message, mailDate "&_
"FROM tblUsers INNER JOIN tblUsers_imail ON tblUsers.userID = tblUsers_imail.reciever "&_
"WHERE reciever="& varReciever)

Dim objConn, SQL, bSQL, updateSQL
Dim userID,varSender, varReciever,varHeadline,varMessage, varDatum
Dim txtSender, txtReciever, txtHeadline,txtMessage, txtDatum

		varSender = FriendlySQL(Request.Form ("txtSender"))
		varReciever = do until mailRS.eof
						mailRS("userID")
					mailRS.MoveNext: Loop
		varFrom = FriendlySQL(Request.Form ("from"))
		varName=request("toUser")
		varMailID = FriendlySQL(Request.Form ("txtMailID"))
		varHeadline = FriendlySQL(Request.Form ("txtHeadline"))
		varDatum = FriendlySQL(Request.Form ("txtDatum"))
		varTime = Time()
		varString = Session("username") & " skrev: <br>"
		varMessage = FriendlySQL(Request.Form("txtMessage"))
		varMessage1 = varString & varMessage 

SET objConn = connect()

	SQL = "INSERT INTO tblUsers_imail"
	SQL = SQL & "(sender, reciever, Headline,message, mailDate,mailTime, mailRead) "
	SQL = SQL & "VALUES('"& varSender &"','"& varReciever &"','"&varHeadline &"','"&varMessage &"','"& varDatum &"','"& varTime &"', 1)"
	
	bSQL = "INSERT INTO tblUsers_imail_backup"
	bSQL = bSQL & "(sender, reciever, Headline,message, mailDate,mailTime, mailRead) "
	bSQL = bSQL & "VALUES('"& varSender &"','"& varReciever &"','"&varHeadline &"','"&varMessage &"','"& varDatum &"','"& varTime &"',1)"
	
	cSQL = "INSERT INTO tblUsers_imail_reply"
	cSQL = cSQL & "(sender, reciever, Headline,message, mailDate,mailTime, mailRead) "
	cSQL = cSQL & "VALUES('"& varSender &"','"& varReciever &"','"&varHeadline &"','"&varMessage &"','"& varDatum &"','"& varTime &"', 1)"

	'response.write SQL
	'response.end
	objConn.Execute(SQL)
	objConn.Execute(bSQL)
	objConn.Execute(cSQL)

objConn.Execute("Update tblUsers SET poang = poang+0.4 WHERE userID= " & UserID &"")

sTo = ""& mailRS("email") &""
sFrom = "mail@webbisen.com"
sSubject = "Nytt mail till "&mailRS("username")&" [Meddelandetjänsten på "& title &"]"
sTextBody = "Du har fått ett nytt meddelande från "& varFrom &" på [url]Http://www.webbisen.com[/url] "&vbcrlf _
& vbcrlf &"Meddelandet skickades "& varDatum &" "& varTime &" "_
& vbcrlf &"Meddelandets rubrik """& varHeadline &""""&vbcrlf _
& vbcrlf &"Mvh Admin på "& title &""

'Create the mail object and set key properties
Set objMail = Server.CreateObject("CDO.Message")

objMail.From = sFrom  
objMail.To = sTo 
objMail.Subject= sSubject 
objMail.TextBody = sTextBody 

'Send the email and clean up
objMail.Send 
Set objMail = Nothing

	response.redirect "mail-sent.asp?toUser="&varName&"&userID="&varReciever&""
	%>
```

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

## #8 — tydal, 2006-03-11T16:56Z

Aha, vänta nu... Är hela det här skriptet bara till för att skicka till en användare? I så fall blir det ju mycket lättare...

I så fall behöver du ju bara ändra den felande raden till:

varReciever = mailRS("userID")

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

## #9 — WebbisNet, 2006-03-11T17:03Z

> **tydal skrev:**
>
> Aha, vänta nu... Är hela det här skriptet bara till för att skicka till en användare? I så fall blir det ju mycket lättare...
> 
> I så fall behöver du ju bara ändra den felande raden till:
> 
> varReciever = mailRS("userID")

Det gick bara iväg till en anda medlem, ska ju ett mail till alla....dvs en rad i databasen per skickat mail

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

## #10 — tydal, 2006-03-11T17:08Z

I början väljer du ut vilka som ska få brevet... och den som ska få brevet är varReciever:

SELECT userID, mailID, email, username, Headline, sender, message, mailDate "&\_
"FROM tblUsers INNER JOIN tblUsers_imail ON tblUsers.userID = tblUsers_imail.reciever "&\_
"WHERE reciever="& varReciever

Men vad är varReciver? Jag ser inte att du gett den något värde där.

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

## #11 — WebbisNet, 2006-03-11T17:11Z

jag tog bort wheresatsen när jag skickade och fick bara iväg till en medlem

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

## #12 — tydal, 2006-03-11T17:20Z

Aha, jag visste inte att where-satsen inte skulle vara där...

Men om vi tar bort den blir det så här:

```
<%if not UserID <> "" then
response.write "Sessionen avslutades tyvärr, gå gärna tillbaka och kopiera ditt meddelande "
response.write "och logga in igen och klistra sedan in texten i mailet och skicka igen"
else

set mailRS=objConn.execute("SELECT userID, mailID, email, username, Headline, sender, message, mailDate "&_
"FROM tblUsers INNER JOIN tblUsers_imail ON tblUsers.userID = tblUsers_imail.reciever ")

Dim objConn, SQL, bSQL, updateSQL
Dim userID,varSender, varReciever,varHeadline,varMessage, varDatum
Dim txtSender, txtReciever, txtHeadline,txtMessage, txtDatum

		varSender = FriendlySQL(Request.Form ("txtSender"))
		varFrom = FriendlySQL(Request.Form ("from"))
		varName=request("toUser")
		varMailID = FriendlySQL(Request.Form ("txtMailID"))
		varHeadline = FriendlySQL(Request.Form ("txtHeadline"))
		varDatum = FriendlySQL(Request.Form ("txtDatum"))
		varTime = Time()
		varString = Session("username") & " skrev: <br>"
		varMessage = FriendlySQL(Request.Form("txtMessage"))
		varMessage1 = varString & varMessage 

SET objConn = connect()

do until mailRS.eof

  varReciver = mailRS("userID")
	SQL = "INSERT INTO tblUsers_imail"
	SQL = SQL & "(sender, reciever, Headline,message, mailDate,mailTime, mailRead) "
	SQL = SQL & "VALUES('"& varSender &"','"& varReciever &"','"&varHeadline &"','"&varMessage &"','"& varDatum &"','"& varTime &"', 1)"
	
	bSQL = "INSERT INTO tblUsers_imail_backup"
	bSQL = bSQL & "(sender, reciever, Headline,message, mailDate,mailTime, mailRead) "
	bSQL = bSQL & "VALUES('"& varSender &"','"& varReciever &"','"&varHeadline &"','"&varMessage &"','"& varDatum &"','"& varTime &"',1)"
	
	cSQL = "INSERT INTO tblUsers_imail_reply"
	cSQL = cSQL & "(sender, reciever, Headline,message, mailDate,mailTime, mailRead) "
	cSQL = cSQL & "VALUES('"& varSender &"','"& varReciever &"','"&varHeadline &"','"&varMessage &"','"& varDatum &"','"& varTime &"', 1)"

	objConn.Execute(SQL)
	objConn.Execute(bSQL)
	objConn.Execute(cSQL)

objConn.Execute("Update tblUsers SET poang = poang+0.4 WHERE userID= " & mailRS("userID") &"")

sTo = ""& mailRS("email") &""
sFrom = "mail@webbisen.com"
sSubject = "Nytt mail till "&mailRS("username")&" [Meddelandetjänsten på "& title &"]"
sTextBody = "Du har fått ett nytt meddelande från "& varFrom &" på [url]Http://www.webbisen.com[/url] "&vbcrlf _
& vbcrlf &"Meddelandet skickades "& varDatum &" "& varTime &" "_
& vbcrlf &"Meddelandets rubrik """& varHeadline &""""&vbcrlf _
& vbcrlf &"Mvh Admin på "& title &""

'Create the mail object and set key properties
Set objMail = Server.CreateObject("CDO.Message")

objMail.From = sFrom  
objMail.To = sTo 
objMail.Subject= sSubject 
objMail.TextBody = sTextBody 

'Send the email and clean up
objMail.Send 
Set objMail = Nothing

mailRS.movenext
loop

	%>
```

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

## #13 — WebbisNet, 2006-03-11T17:25Z

Ser inte mottagaren där nånstans

Här är den nedbantade versionen jag har nu, ska detta fungera då?

```
<!-- #include virtual="/include/dbconn.asp" -->
<!-- #include virtual="/include/functions.asp" -->
<!-- #include virtual="/include/variabler.asp" -->
<%if not UserID <> "" then
response.write "Sessionen avslutades tyvärr, gå gärna tillbaka och kopiera ditt meddelande "
response.write "och logga in igen och klistra sedan in texten i mailet och skicka igen"
else

set mailRS=objConn.execute("SELECT userID, mailID, email, username, Headline, sender, message, mailDate "&_
"FROM tblUsers INNER JOIN tblUsers_imail ON tblUsers.userID = tblUsers_imail.reciever")

		varReciever = mailRS("userID")
		varFrom = FriendlySQL(Request.Form ("from"))
		varName=request("toUser")
		varMailID = FriendlySQL(Request.Form ("txtMailID"))
		varHeadline = FriendlySQL(Request.Form ("txtHeadline"))
		varDatum = FriendlySQL(Request.Form ("txtDatum"))
		varTime = Time()
		varString = Session("username") & " skrev: <br>"
		varMessage = FriendlySQL(Request.Form("txtMessage"))
		varMessage1 = varString & varMessage 

SET objConn = connect()
	SQL = "INSERT INTO tblUsers_imail"
	SQL = SQL & "(sender, reciever, Headline,message, mailDate,mailTime, mailRead) "
	SQL = SQL & "VALUES(1,'"& varReciever &"','"&varHeadline &"','"&varMessage &"','"& varDatum &"','"& varTime &"', 1)"

	objConn.Execute(SQL)

sTo = ""& mailRS("email") &""
sFrom = "mail@webbisen.com"
sSubject = "Nytt mail till "&mailRS("username")&" [Meddelandetjänsten på "& title &"]"
sTextBody = "Du har fått ett nytt meddelande från "& varFrom &" på [url]Http://www.webbisen.com[/url] "&vbcrlf _
& vbcrlf &"Meddelandet skickades "& varDatum &" "& varTime &" "_
& vbcrlf &"Meddelandets rubrik """& varHeadline &""""&vbcrlf _
& vbcrlf &"Mvh Admin på "& title &""

Set objMail = Server.CreateObject("CDO.Message")

objMail.From = sFrom  
objMail.To = sTo 
objMail.Subject= sSubject 
objMail.TextBody = sTextBody 
objMail.Send 
Set objMail = Nothing

	response.redirect "mail-sent.asp?toUser="&varName&"&userID="&varReciever&""%>
```

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

## #14 — tydal, 2006-03-11T17:34Z

Din kod skickar till en mottagare, min skickar till hur många som helst.

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

## #15 — WebbisNet, 2006-03-11T17:47Z

> **tydal skrev:**
>
> Din kod skickar till en mottagare, min skickar till hur många som helst.

Nu gick det, hur får man nu ex en bild att visas som en bild och inte som text nu, skickar med denna text i mailet och den visas som man skickar

\<img src="http://imp.double.se/imp.gif?a3805p137g2046" width="0" height="0" alt="" /\>\<a href="http://www.double.se/reports/click.php?a=3805&p=137&g=2046" target="\_blank"\>\<img src="http://dating.singelhuset.se/banners/DR_singelhuset3paket.gif" width="650" height="400" border="0" alt="" /\>\</a\>

Koden för läsningen av mailet är 

```
[B] Set rs = objConn.Execute("SELECT userID, Sex, username, persnr, City, picture, vip, "&_
 "mailID, mailDate, mailTime, sender, Reciever, Headline, message, mailRead "&_
"FROM tblUsers INNER JOIN tblUsers_imail ON tblUsers.userID = tblUsers_imail.sender where mailID="& intMailID)[/B]

objConn.Execute("Update tblUsers_imail SET mailRead = 0 where mailID ="& intMailID) 
objConn.Execute("Update tblUsers_imail_reply SET mailRead = 0 where mailID ="& intMailID) 
sender=Session("userID")
reciever=rs("userID")
username=rs("username")
mailID=rs("mailID")
[B]message=rs("message")[/B]
Datum=rs("mailDate")
Headline=replace(rs("Headline")," ","&nbsp;")
userPic=rs("picture")
varSex=rs("sex")%>

<textarea readonly style="height:180px; width:800px;">[B]<%=message%>[/B]</textarea>
```

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

## #16 — WebbisNet, 2006-03-11T21:33Z

Flera av medlemmarna har fått upp till 6 av samma vid 1 utskick.....hur ser man till att bara 1 per medlem skickas?

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

## #17 — WebbisNet, 2006-03-12T19:46Z

Löste det med denna kod

```
<%set mailRS=objConn.execute("SELECT userID, mailID, email, username, Headline, sender, message, mailDate "&_
"FROM tblUsers INNER JOIN tblUsers_imail ON tblUsers.userID = tblUsers_imail.reciever")
 
set mail1=objConn.Execute("select distinct userID from tblUsers where visaNyhetsbrev=1")

varName=request("toUser")
varMailID = FriendlySQL(Request.Form ("txtMailID"))
varHeadline = FriendlySQL(Request.Form ("txtHeadline"))
varDatum = FriendlySQL(Request.Form ("txtDatum"))
varTime = Time()
varMessage = FriendlySQL(Request.Form("txtMessage"))

SET objConn = connect()

do until mail1.eof
varReciever = mail1("userID")
	SQL = "INSERT INTO tblUsers_imail"
	SQL = SQL & "(sender, reciever, Headline,message, mailDate,mailTime, mailRead) "
	SQL = SQL & "VALUES(1,'"& varReciever &"','"&varHeadline &"','"&varMessage &"','"& varDatum &"','"& varTime &"', 1)"
objConn.Execute(SQL)

sTo = varReciever
sFrom = "nyhetsbrev@webbisen.com"
sSubject = "Nyhetsbrev från Webbisen.com [Testmail]"
sTextBody = "Du har fått ett nyhetsbrev från Admin på [url]Http://www.webbisen.com[/url] "&vbcrlf _
& vbcrlf &"Meddelandet skickades "& varDatum &" "& varTime &" "_
& vbcrlf &"Meddelandets rubrik """& varHeadline &""""&vbcrlf _
& vbcrlf &"Mvh Admin på "& title &""

Set objMail = Server.CreateObject("CDO.Message")
objMail.From = sFrom  
objMail.To = sTo 
objMail.Subject= sSubject 
objMail.TextBody = sTextBody 
objMail.Send 
Set objMail = Nothing

mail1.movenext
loop
%>
```

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

---

Tråden på webben: https://www.webforum.nu/amne/databaser-sql/143766-skicka-infobrev-internt