Udskrive fra database til Jmail

må vi se lidt mere kode

Gerne :
%
Dim objConndrejebase
Set objConndrejebase = Server.CreateObject ("ADODB.Connection")
objConndrejebase.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\manniken.dk\www\config\datasources\drejebase.mdb"
objConndrejebase.Open () 

Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open ("SELECT order_product_name, order_product_price, order_quantity FROM orders" ),objConndrejebase,adOpenDynamic, adLockOptimistic
Dim wynik
strSQL="select order_quantity, order_product_name from orders"
wynik=objConndrejebase.Execute(strSQL)

Dim mail, Body
Set mail = Server.CreateObject("JMail.SMTPMail")
With mail
.Body = objRS("order_product_name") & vbCrLf & _
        objRS("order_quantity")  & vbCrlf
.Sender = "test@jirty.com"
.AddRecipient  "info@manniken.dk"
.ServerAddress = "mail.jirty.dk"
.Execute
End With


Set mail = Nothing

Dim wynik er et eksperiment jeg havde gang i 80)

du mangler en where del på dit sql statement. Og så skal du beholde din Do While not EOF osv for at styre hvor mange du sender til.

fx
objRS.Open ("SELECT order_product_name, order_product_price, order_quantity FROM orders where email = 'email@email.dk'"  )

Jeg vrøvlede vist lidt.
du mangler en where del på dit sql statement for at styre hvor mange du sender til. Og så skal du beholde din Do While not EOF osv. Hvis ikke du har den med får du jo kun som du selv har fundet ud af den første post i tabellen.

With mail
  do while not objRS
    .Body = objRS("order_product_name") & vbCrLf & _
            objRS("order_quantity")  & vbCrlf
    objRS.MoveNext
  loop
  .Sender = "test@jirty.com"
  .AddRecipient  "info@manniken.dk"
  .ServerAddress = "mail.jirty.dk"
  .Execute
End With

Cesil ; Hvordan skal den 'where' se ud ?

nielle; Så finder den kun den sidste post .

Men ellers tak. Jeg håber at der er en der sider med løsningen

Loopen løber da igennem alle poster. Så det kan ikke være det der er problemet.

Lukketid?