Jmail vil ikke rigtig arbejde sammed med min db (ASP + Access)

Får du nogle fejlmeddelse, eller vil den bare ikke sende til mail adresen?

Det vil hjælpe en del, hvis vi kunne se din jmail kode.

Her er koden
<%
dim overskrift, besked,

overskrift=Trim(Replace(Request("overskrift"),"'",""))
besked=Trim(Replace(Request("besked"),"'",""))

%>



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

set rs = (conn.execute("select emailadresse from nyhedsbrev"))

'    on error resume next
Do While not rs.eof

' Jmail begynder

Set JMail = Server.CreateObject("JMail.SMTPMail")
  JMail.ServerAddress = "smtp.domæne.dk"
  JMail.Sender        = "min email.dk"
  JMail.SenderName    = "AFsendernavn"
  JMail.Subject      = "Nyhedsbrev fra domæne"   

JMail    .AddRecipient rs("emailadresse")
 
  JMail.Body = JMail.Body & "" & Request.Form("overskrift") & vbCrLf & vbCrLf
  JMail.Body = JMail.Body & "" & Request.Form("besked") & vbCrLf & vbCrLf
 


'Send mailen
  JMail.Execute
 
  Set JMail = Nothing
' Jmail slutter   
rs.movenext
loop
conn.close

%>

er blever rettet
dim overskrift, besked

Skulle der ikke stå:
JMail.AddRecipient & rs("emailadresse")

/Kurt

Sorry
=

/Kurt

Den vil ikke godtage = :-(

Har du prøvet at vise dit udtræk, uden at sende det, så kan du se om der er dit udtræk der er noget galt med.

Er du sikker på at du har kaldt din tabel(den i din database) for emailadresse?

Er det bare mig eller har du en fejl i din SELECT.
Nu:
set rs = (conn.execute("select emailadresse from nyhedsbrev"))

Prøv denne:
set rs = (conn.execute("select * FROM emailadresse from nyhedsbrev"))

UPS
Min fejl så ikke at du havde FROM bagefter emailadresse.

Glem den sidste meddelse

Er du sikker på at du har Jmail installeret på din computer?
Hvis ikke, så er et link her:
http://www.darkskies.dk/J-Mail.exe

Hej Trekkies
Ja jeg er sikker. Jeg kan fint sende når det er til en enkelt, men det går galt når jeg vil lave udtræk fra DB.

Jeg har selv lavet en lille fil som henter noget fra en database og det virker fint.

Hvis du vil have det, så kan jeg sende koden til dig.

Det vil jeg være glad for, men jeg er ikke i stand til at sende £,$ eller € til dig.

Du skal da ikke noget til mig.

Denne kode bruger jeg:

<%
strSQL = "Select * from svar WHERE id = " & Request("id")
set rs = conn.execute(strSQL)
   
strSQL = "SELECT * FROM oplysning"
set op  = conn.execute(strSQL)
   
Set msg = Server.CreateOBject( "JMail.Message" )

msg.Logging = True
msg.Silent = True
msg.From = op("email")  'Afsender e-mail
msg.FromName = op("navn")
msg.Charset = "iso-8859-1"

msg.AddRecipient rs("email")
msg.Subject = rs("skrift")
msg.Body = "Hej " & rs("name")
msg.Body = msg.Body & vbCrLf
msg.Body = msg.Body & vbCrLf
msg.Body = msg.Body & rs("besked")
msg.Body = msg.Body & vbCrLf
msg.Body = msg.Body & vbCrLf
msg.Body = msg.Body & rs("svar")
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 & op("navn")
'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
%>

Håber at du kan bruge koden, men hvis du har spørgsmål om koden, så bare skriv.

Tusinde tak. Den vil jeg arbejde på.
giver du et svar

Jeg giver et svar nu, men godkend det først hvis du får det til at virke.

Ups. Her er svaret

DEt virker bare HURRA:-)

Det er bare godt når at noget virker.

Er glad for at kunne hjælpe dig.

Glæden er helt og holdent på min side :-)
Jeg har knoklet i næsten 2 dage for at få det til at virke