*XxX* wrote in dk.edb.internet.webdesign.serverside.asp:
> "Michael Tillgaard" <post@multibook.dk> wrote in message
> news:4143f77a$0$202$14726298@news.sunsite.dk...
> > Mine email modtagere er delt i tre grupper: 1, 2 og 3.
> > Der er afkrydsningsfelt i tabelen.
> > Nedenstående går ikke. Hvordan får jeg scriptet til netop at
> > sende til den gruppe der bliver hentet i Request.QueryString?
> >
> > strsql = "SELECT Email FROM modtagere
> > Request.QueryString("gruppe") = TRUE"
>
> strSQL = "SELECT Email FROM modtagere WHERE "&Requst.Querystring("gruppe")&"
> = TRUE"
>
>
Tak for dit svar.
Fik det næsten til at virke. Jeg får nu ikke længere en fejlmelding, men efter
at have testet scriptet sender den desværre mails ud til alle i databasen
uanset hvilken gruppe der requestes. Har du et bud? Hele koden ser således ud:
Dim conn, rs, strsql, strconn
Dim strFrom, strSubject, strBody
Dim cmdData, strMailAddress
strFrom = "post@multibook.dk"
strSubject = request.form("overskrift")
strBody = request.form("teksten")
Set conn = Server.CreateObject("ADODB.Connection")
strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" &
Server.MapPath("breve.mdb")
conn.open strconn
Set cmdData = Server.CreateObject("ADODB.Command")
cmdData.ActiveConnection = conn
strsql = "SELECT Email FROM modtagere WHERE "&Request.Querystring("gruppe")&"
= TRUE"
cmdData.CommandText = strsql
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open cmdData, , 0, 2
rs.MoveFirst
While Not rs.EOF
strMailAddress = rs("Email")
Set msg = Server.CreateObject("JMail.Message")
msg.Logging = true
msg.Silent = true
msg.From = strFrom
msg.FromName = "Multibook.dk"
msg.AddRecipient "post@multibook.dk"
msg.AddRecipientBCC strMailAddress
msg.Subject = strSubject
msg.HTMLBody = strBody
msg.Send("mail.mailserver.dk")
Set msg = Nothing
rs.movenext
wend
--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials