nyhedsmail skal kun sende til en bestemt gruppe

Hejsa..
jeg har et nyhedsmail system som skal kunne sende til 2 forskellige "grupper"

Databasen ser således ud.

(ID)  (navn)  (email)        (type)
        Lars      testmail   
        bent    bumbum  medlem


det skal være sådan at når jeg afvikler et felt så skal den sende til alle hvor (type) er = "Medlem" og hvis den ikke er afvinklet skal den bare sende til alle sammen!

Håber i forstår

////  Her er scriptet  /////

<%
if request("mode") = "send" then
mailertype = 1

Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "DBQ="&(Server.MapPath(".")) &"\db.mdb; DefaultDir=DBQ="&(Server.MapPath(".")) &"\;Driver={Microsoft Access Driver (*.mdb)};"
if msgbox("Kun Til Medlemmer", vbYesNo) <> 6 then
    SQL = "SELECT * from nyhedsmail"
else
    SQL = "SELECT * from nyhedsmail WHERE type = 'Medlem'"
end if

    set send = conn.execute( SQL )
    do while not send.eof
    on error resume next
if mailertype = 1 then
        Set JMail = Server.CreateObject("JMail.SMTPMail")
        ' This is my local SMTP server
        JMail.ServerAddress = "smtp.server.dk"
   
        ' mail config settings
        JMail.Charset = "iso-8859-1"
        JMail.ContentTransferEncoding = "8bit"
        JMail.ContentType = "text/html"
       
        JMail.Sender = "brev@test.dk"
        JMail.Subject = request("header")
        JMail.AddRecipient send("email")
        JMail.Body = request("message")
       
        ' 1 - highest priority (Urgent)
        ' 3 - normal
        ' 5 - lowest
       
        JMail.Priority = 3
       
        ' Send it...
        JMail.Execute
        set JMail = nothing
elseif mailertype = 2 then

        ' importance = 0        ' lav
        importance = 1        ' normal
        ' importance = 2        ' høj

        Set mailObj = CreateObject("CDONTS.NewMail")
   
        ' send email med parametre : fra email, til email, header, besked, importance
        mailObj.Send "afsenders emailadresse", send("email"), request("header"), request("message"), importance

        ' slet reference til CDONTS object
        Set mailObj = Nothing
end if
%>

<%
send.movenext
loop
conn.close
%>

Nyhedsbrevet er nu sendt.


<% else %>


<form action="mailadmin.asp?mode=send" method="post" name="frm">
    <p>
      <input type="text" name="header">
    Emne</p>
    <p>
      <textarea name="message" rows="8" cols="60"></textarea>
      <br>
     
      <input name="Submit" type="submit" class="button" tabindex="30" value="Send mail">
      <input type="checkbox" name="KunTilMedlemmer">
      <font size="1" face="verdana">Kun til medlemmer? </p>
</form>


<% end if %>

//////////// slut ////////////

jeg fik en løsning fra en anden bruger herinde fra som desværre ikke virker.. men jegtror han har fat i noget af det rigtige !!

//// løsning ////

if [KunTilMedlemmer] = false then
    SQL = "SELECT * from nyhedsmail"
else
    SQL = "SELECT * from nyhedsmail WHERE type = 'medlem'"
end if

hvis "KunTilMedlemmer" er en checkboks i en formular

/// slut //


På forhånd tak!