J-Mail problemer

strSQL = "SELECT * FROM user WHERE brev =" & "yes" skal være...

strSQL = "SELECT * From User where Brev=yes"

Det virker ikke, jeg får den samme fejl.

Hmmm strSQL = "SELECT * From User where Brev='yes'"

Nope, samme fejl.

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../mindatabase.mdb")

strSQL = "SELECT * FROM user WHERE brev ='yes'"
set rs = conn.execute(strSQL)

if rs.eof or rs.bof then
  response.write("ingen poster")
else
  while not rs.eof or rs.bof
  id = rs("id")
  navn = rs("navn")
  godkend=rs("godkend")
  mail=rs("mail")
  brugernavn = rs("brugernavn")
  brev = rs("brev")

Set msg = Server.CreateOBject( "JMail.Message" )

msg.Logging = True
msg.Silent = True
msg.From = "mail@adresse.dk"  'Afsender e-mail
msg.FromName = "www.darkskies.dk" 'Afsender navn
msg.Charset = "iso-8859-1"

msg.AddRecipient = rs("mail")
msg.Subject = Request.Form("overskrift")
msg.Body = "Hej " & rs("brugernavn")
msg.Body = msg.Body & vbCrLf
msg.Body = msg.Body & vbCrLf
msg.Body = msg.Body & Request.Form("besked")
msg.Body = msg.Body & vbCrLf
msg.Body = msg.Body & vbCrLf
msg.Body = msg.Body & "Med venlig hilsen"
msg.Body = msg.Body & vbCrLf
msg.Body = msg.Body & "darkskies.dk"
'msg.Send("smtp.mail.dk" ) 'TDC mail server
msg.Send("smtp.tele2.dk" ) 'Tele2 mail server
'msg.Send("mail.dandomain.dk") 'Dandomain mail server

Response.write "Meddelelsen er nu sendt!"

Set msg = nothing

rs.movenext
wend

end if

Det virker heller ikke.

Den siger at fejlen findes i denne linie:
msg.AddRecipient = rs("mail")

msg.AddRecipient = mail

Det virker bare ikke.

Jeg får stadig denne fejl:
Objektet understøtter ikke denne egenskab eller metode: 'msg.AddRecipient'

Det er klart !!

msg.AddRecipient mail

sidder og sover :) der ksal ikke vÆre = mellem !

Skal det forståes sådan, at hvis du kun bruger:

strSQL = "SELECT * FROM user"

- så virker det godt nok ?

/Goose

strSQL = "SELECT * FROM user WHERE brev ='yes'"
virker fint, men det er kun hvis jeg vælger
msg.AddRecipient = rs("mail")
at den fejler.
Hvis jeg ændre koden til f.eks.
msg.AddRecipient = "minmail@adresse.dk"
Så virker det fint, så modtager jeg bare 2 beskeder, fordi at der kun er 2 medlemmer i databasen lige nu, men der skal sendes EN mail til dem som har brev = yes, og det vil den ikke.

Kender I en metode?

du skal ændre din msg.addRecipient til msg.addRecipient rs("mail") uden = lige som du gØr når du sender til din test...
msg.AddRecipient "mail@adresse.dk"
'msg.AddRecipient = rs("mail")
bemærk forskellen !

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../mindatabase.mdb")

strSQL = "SELECT * FROM user WHERE brev ='yes'"
set rs = conn.execute(strSQL)

if rs.eof or rs.bof then
  response.write("ingen poster")
else
  while not rs.eof or rs.bof
  id = rs("id")
  navn = rs("navn")
  godkend=rs("godkend")
  mail=rs("mail")
  brugernavn = rs("brugernavn")
  brev = rs("brev")

Set msg = Server.CreateOBject( "JMail.Message" )

msg.Logging = True
msg.Silent = True
msg.From = "mail@adresse.dk"  'Afsender e-mail
msg.FromName = "www.darkskies.dk" 'Afsender navn
msg.Charset = "iso-8859-1"

msg.AddRecipient rs("mail")
msg.Subject = Request.Form("overskrift")
msg.Body = "Hej " & rs("brugernavn")
msg.Body = msg.Body & vbCrLf
msg.Body = msg.Body & vbCrLf
msg.Body = msg.Body & Request.Form("besked")
msg.Body = msg.Body & vbCrLf
msg.Body = msg.Body & vbCrLf
msg.Body = msg.Body & "Med venlig hilsen"
msg.Body = msg.Body & vbCrLf
msg.Body = msg.Body & "darkskies.dk"
'msg.Send("smtp.mail.dk" ) 'TDC mail server
msg.Send("smtp.tele2.dk" ) 'Tele2 mail server
'msg.Send("mail.dandomain.dk") 'Dandomain mail server

Response.write "Meddelelsen er nu sendt!"

Set msg = nothing

rs.movenext
wend

end if %>

Det virker stadig ikke, sammen fejl    :<

Har du kopieret ordret det jeg har skrevet ind ??

Ja, direkte af, rettede database linket til.

Det her virker...

<%

EmailArr = "cb@eliteweb.dk, cbi@eliteweb.dk"
EmailArr = split(EmailArr,",")

for each Email in EmailArr


Set msg = Server.CreateOBject( "JMail.Message" )

msg.Logging = True
msg.Silent = True
msg.From = "mail@adresse.dk"  'Afsender e-mail
msg.FromName = "www.darkskies.dk" 'Afsender navn
msg.Charset = "iso-8859-1"

msg.AddRecipient Email
msg.Subject = "test"
msg.Body = "Hej " & "clark"
msg.Body = msg.Body & vbCrLf
msg.Body = msg.Body & vbCrLf
msg.Body = msg.Body & "besked"
msg.Body = msg.Body & vbCrLf
msg.Body = msg.Body & vbCrLf
msg.Body = msg.Body & "Med venlig hilsen"
msg.Body = msg.Body & vbCrLf
msg.Body = msg.Body & "darkskies.dk"
'msg.Send("smtp.mail.dk" ) 'TDC mail server
msg.Send("smtp.tele2.dk" ) 'Tele2 mail server
'msg.Send("mail.dandomain.dk") 'Dandomain mail server

Response.write "Meddelelsen er nu sendt!"

Set msg = nothing
next
%>


Prøv evt lige at test det her og så skriv outputtet her...

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../mindatabase.mdb")

strSQL = "SELECT * FROM user WHERE brev ='yes'"
set rs = conn.execute(strSQL)

if rs.eof or rs.bof then
  response.write("ingen poster")
else
  while not rs.eof or rs.bof
  response.write(rs("Email"))
end if

%>

hvis du som sagt har 2 mail adresser i databasen og begge er yes vil de nu blive returneret

Hvis jeg prøver din test formular, så for jeg denne fejl

Fejltype:
Der opstod en Microsoft VBScript-kompileringsfejl (0x800A0400)
En sætning var ventet
/darkskies/admin/brev_gem_incl1.asp, line 65
end if

for = får

øhhh hvad??

Det her skal virke... ellers har du en fejl et andet sted ?!? Har du evt noget mere kode ??

<%

EmailArr = "cb@eliteweb.dk, cbi@eliteweb.dk"
EmailArr = split(EmailArr,",")

for each Email in EmailArr


Set msg = Server.CreateOBject( "JMail.Message" )

msg.Logging = True
msg.Silent = True
msg.From = "mail@adresse.dk"  'Afsender e-mail
msg.FromName = "www.darkskies.dk" 'Afsender navn
msg.Charset = "iso-8859-1"

msg.AddRecipient Email
msg.Subject = "test"
msg.Body = "Hej " & "clark"
msg.Body = msg.Body & vbCrLf
msg.Body = msg.Body & vbCrLf
msg.Body = msg.Body & "besked"
msg.Body = msg.Body & vbCrLf
msg.Body = msg.Body & vbCrLf
msg.Body = msg.Body & "Med venlig hilsen"
msg.Body = msg.Body & vbCrLf
msg.Body = msg.Body & "darkskies.dk"
'msg.Send("smtp.mail.dk" ) 'TDC mail server
msg.Send("smtp.tele2.dk" ) 'Tele2 mail server
'msg.Send("mail.dandomain.dk") 'Dandomain mail server

Response.write "Meddelelsen er nu sendt!"

Set msg = nothing
next
%>

Kan du ikke lige poste hele brev_gem_incl1.asp her...

Jeg har fundet ud af at den ikke finder noget i databasen.

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../mindatabase.mdb")

strSQL = "SELECT * FROM user WHERE brev =yes"
set rs = conn.execute(strSQL)

if rs.eof or rs.bof then
  response.write("ingen poster")
else
  while not rs.eof or rs.bof
  response.write(rs("Email"))
end if

%>

Personligt ville jeg nok ændre database feltet til en true/false gør det lidt nemmere :)

Jeg har prøvet at ændre min SQL til:
strSQL = "SELECT * FROM user"

selv der finder den ikke noget.

øhhh du er sikker på at du har en user tabel med posts i i databasen???

Kan du ikke lige poste hele din fil her?

Prøv lige flg. kode...

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../mindatabase.mdb")

strSQL = "SELECT * FROM user"
set rs = conn.execute(strSQL)

if rs.eof or rs.bof then
  response.write("ingen poster")
else
  while not rs.eof or rs.bof
  response.write(rs("Email"))
  rs.movenext
  wend
end if

%>

Nu kan jeg få den til at hente noget i databasen, men kun min egen mail adresse, den anden vil den ikke tage, jeg har prøvet med følgende SQL streng:
strSQL = "SELECT * FROM user WHERE brev =" & "yes"
strSQL = "SELECT * From User where Brev=yes"
strSQL = "SELECT * From User where Brev='yes'"
strSQL = "SELECT * FROM user"

Men de hjælper ikke.

hmm send filen og databasen i en zip fil til cb@eliteweb.dk så skal jeg lige kigge på det.

Den vil kun finde mine oplysninger, det er selv om at jeg bruger denne SQL:
strSQL = "SELECT * FROM user"

Hvad siger du til at fremsende koden ??

Du får den lige om lidt.

Jeg har postet dig en E-Mail ;)

Mange tak for hjælpen igen :)

<%
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("newsletter.mdb")
   
    ' Hent fra database de brugere som har "YES"
    strSQL = "SELECT * FROM user where Brev = Yes"
    set rs = conn.execute(strSQL)
   
    ' Der er fordi du ikke løber løkken igennem...  du henter kun den første post nu har jeg rettet det til med flg. kode
   
    ' Tjek for tomme post i databasen
    if rs.eof or rs.bof then
        response.Write("Vi fandt ingen brugere i databasen... ")
    else
        ' Vi køre en løkke som udskriver alle vores bruger i databasen...
        while not rs.eof or rs.bof
       
            ' Laver Variabler da vi kun kan hente RS("Mail") ud éen gang i vores løkke... hvis du gør det flere gange vil det næste udtræk være tomt..
            mailAdresse = rs("Mail")
            overskrift = Request.Form("overskrift")
            besked = request.Form("Besked")
            brugernavn = rs("Brugernavn")
           
            response.Write("<br>")
           
           
            ' AFSEND MAILS....
                Set msg = Server.CreateOBject( "JMail.Message" )
                    msg.Logging = True
                    msg.Silent = True
                    msg.From = "mail@adresse.dk"  'Afsender e-mail
                    msg.FromName = "www.darkskies.dk" 'Afsender navn
                    msg.Charset = "iso-8859-1"
                   
                    msg.AddRecipient mailAdresse
                    msg.Subject = Overskrift
                    msg.Body = "Hej " & brugernavn
                    msg.Body = msg.Body & vbCrLf
                    msg.Body = msg.Body & vbCrLf
                    msg.Body = msg.Body & besked
                    msg.Body = msg.Body & vbCrLf
                    msg.Body = msg.Body & vbCrLf
                    msg.Body = msg.Body & "Med venlig hilsen"
                    msg.Body = msg.Body & vbCrLf
                    msg.Body = msg.Body & "darkskies.dk"
                    msg.Send("smtp.tele2.dk" ) 'Tele2 mail server
                    Response.write "Meddelelsen er nu sendt til: " & MailAdresse
                    Set msg = nothing
                ' Afsendelsen afsluttet
               
        ' Koer til naeste post
        rs.movenext
        wend
   
    end if
   
%>