Afsende mail samtidig med skriving til database

Hvis ja, hvordan selfølgelig... :D

Bare send en mail efter der er indsat i databasen.

conn.execute("insert into DinTabel(xxx, yyy, zzz osv....) values('','','' osv...)")
Message.From = "Fra@adresse.dk"
Message.Subject = "Gæstebog"
Message.Body = "Der er nye indlæg."
Message.AddRecipient "til@adresse.dk",""
if not Message.Send( "Din.Mailserver.dk" ) then
  errTekst = "<span style=""color:red"">Der skete en fejl under afsendelse.</span>"
end if

Manglede lige en:

set Message = Server.CreateObject("JMail.Message")

Hvor skal det lige sætte ind det der?

Bruger rs sætninger til at skrive til databasen:

rs.AddNew
      rs("navn") = replace( replace( Request.form("navn"),"<","&lt;"), ">", "&gt;")
      rs("email") = replace( replace( Request.form("email"),"<","&lt;"), ">", "&gt;")
      rs("url") = replace( replace( Request.form("url"),"<","&lt;"), ">", "&gt;")

Det ahr måske ik noget med dem at gøre?

du kunne evt indsætte det sådan:

set Message = Server.CreateObject("JMail.Message")
Message.From = "Fra@adresse.dk"
Message.Subject = "Gæstebog"
Message.Body = "Der er nye indlæg."
Message.AddRecipient "til@adresse.dk",""
if not Message.Send( "Din.Mailserver.dk" ) then
  errTekst = "<span style=""color:red"">Der skete en fejl under afsendelse.</span>"
end if
rs.AddNew
      rs("navn") = replace( replace( Request.form("navn"),"<","&lt;"), ">", "&gt;")
      rs("email") = replace( replace( Request.form("email"),"<","&lt;"), ">", "&gt;")
      rs("url") = replace( replace( Request.form("url"),"<","&lt;"), ">", "&gt;")

Så sender du mailen før det bliver indsat, men du kunne også bytte om på rækkefølgen, så du sender mailen efter det er indsat.

rs.AddNew
      rs("navn") = replace( replace( Request.form("navn"),"<","&lt;"), ">", "&gt;")
      rs("email") = replace( replace( Request.form("email"),"<","&lt;"), ">", "&gt;")
      rs("url") = replace( replace( Request.form("url"),"<","&lt;"), ">", "&gt;")
set Message = Server.CreateObject("JMail.Message")
Message.From = "Fra@adresse.dk"
Message.Subject = "Gæstebog"
Message.Body = "Der er nye indlæg."
Message.AddRecipient "til@adresse.dk",""
if not Message.Send( "Din.Mailserver.dk" ) then
  errTekst = "<span style=""color:red"">Der skete en fejl under afsendelse.</span>"
end if

uanset hvordan du gør, giver det samme resultat.

Afsendelse af mail og indsættelse i databasen har intet med hinanden at gøre. Hvis du vil sende en mail når man indsætter i databasen skal du bare "gøre det". Der er kode som indsætter og kode som sender mail. De linjer skal bare køres. For at forvire dig endnu mere kunne koden også se sådan ud:

set Message = Server.CreateObject("JMail.Message")
rs.AddNew
Message.From = "Fra@adresse.dk"
      rs("navn") = replace( replace( Request.form("navn"),"<","&lt;"), ">", "&gt;")
Message.Subject = "Gæstebog"
      rs("email") = replace( replace( Request.form("email"),"<","&lt;"), ">", "&gt;")
Message.Body = "Der er nye indlæg."
      rs("url") = replace( replace( Request.form("url"),"<","&lt;"), ">", "&gt;")
Message.AddRecipient "til@adresse.dk",""
if not Message.Send( "Din.Mailserver.dk" ) then
  errTekst = "<span style=""color:red"">Der skete en fejl under afsendelse.</span>"
end if

Jeg vil ikke anbefale at bruge den sidste. Det var bare for at vise at linjerne også kan blandes sammen.

Hehe aah jæs har fattet princippet nu... er lige i gang med at teste... ;)

Er der nogen bestemt grund til if sætningen til slut?? Hvad skulle der være af fejl?

Nu virker det vidst... satte godt nok det her ind istedet:

Set JMail = Server.CreateObject("JMail.SMTPMail")
  JMail.ServerAddress = "min.server.dk"
  JMail.sender = "min@mail.dk"
  JMail.subject = "Nyt indlæg i din gæstebog"
  JMail.AddRecipient "min@mail.dk"
  JMail.Body = "Der er kommet et nyt indlæg i din gæstebog!"
  JMail.Priority = 3
  JMail.Execute

så siger jeg tak for point.