datosletning i db

Hej

Jeg forsøger at sammensætte en kode som skal slette en annonce i access db og samtidig sende brugeren en mail at annoncen er udløbet - Dette volder mig en del problemer, håber der er en som kan hjælpe mig med at rette koden..

Posten i db bliver slettet men der blir ingen mail sendt.

Koden er følgende:

Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("..\database\annonce.mdb")

Set rs = Server.CreateObject ("ADODB.Recordset")
sql = "SELECT * FROM bruger WHERE Abonnement = 1 And Dato < #" & Date()-186 & "#"
Set rs = Conn.Execute(sql)

Set JMail = Server.CreateObject("JMail.smtpMail")
JMail.ContentType = "text/html"
JMail.ServerAddress = ("smtp.unoeuro.com")
JMail.Sender = "info@pretsmann.dk"
JMail.Subject = "Sletniing af annonce"
JMail.AddRecipient rs("email")



conn.Execute("delete from bruger where Abonnement = 1 And Dato < #" & Date()-186 & "#")