Hej!
Jag skulle vilja lägga in data i en databas och när jag gör det så ska ett mail automatiskt genereras till alla som har registrerat sig för att få nyhetsbrevet. Har tänkt använda mig av jmail och en access databas.
Tacksam för hjälp!
Stig

Set Conn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.Recordset")
dbpath=Server.MapPath("databas.mdb")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & dbpath

SQL = "SELECT namn, epost FROM nyhetsbrevpersoner"

RS.Open SQL, Conn, 1, 1
antal = RS.recordcount
x = 0

'loopa i databastabellen så länge som det finns mottagare
Do until RS.eof

'************ JMAIL ******************************************'
' Skapa JMail message Objektet
set Jmail = Server.CreateObject ("JMail.SMTPMail")

Jmail.ServerAddress = "mail.server.se"

' Använda loggning för att ev kunna debugga
' Men sätt loggen till "tystläge"
Jmail.Logging = true
'Jmail.silent = true

' Ansändare
Jmail.Sender = "avsändar@adress.se"

' Lägg till mottagare
' INTE likamed-tecken( = )
Jmail.AddRecipient RS("epost")

' Ämnesrad
Jmail.Subject = "Nyhetsbrev"

' Och bodyn
mailbody = "Nyhetsbrev" & VbCrLf& VbCrLf
mailbody = mailbody & request.form("mailbody") 'hämtas från formulär
Jmail.Body = mailbody

'prioritet på mailet
Jmail.Priority = 3

'lägga till en header i mailet
Jmail.AddHeader "Originating-IP",Request.ServerVariables("REMOTE_ADDR")
'JMail.AppendBodyFromFile "DSFASDFADS"
'JMail.AddAttachment ""

On Error Resume Next

'slutligen skickar mailet
Jmail.Execute

' KLART mailet har skickats

'*******************************************************************
x=x+1

'gå till nästa rad i tabellen
RS.movenext
Loop

När allt är klart stäng tabell och databas
RS.close
Conn.close

'gå till ny sida efter mailet har skickats.
response.redirect "sida.html"