Skrive til DB og sende mail i ét hug

Ja :)

Du kan jo lave koden lige så lang du har lyst til,
skriv dog først til databasen, og derefter til mailen, så kan du nå at kontrollere om alt er gået godt

and ?

how ?

Et godt eksempel ønskes

ok hvilket mail komponent har du?
og er det acces db eller hvad?

Det er til at starte med en Access 2000 DB
Jeg benytter muligheden for at SMTP´e fra IIS-5

Det virker okay....

Som regel benytter jeg FP2K, da jeg i det daglige administrere et større intranets webserver med dette værkstøj.

Det er muligt at sende mails med FP2K og skrive til en DB men IKKE samtidigt.....

Og den lille feature med at kunne sende en mail, når der er kommet nye data vil da være en genial idé  - ikke

mvh martens

Lige som her på eksperten.dk :o)

du mener hvis en bruger har skrevet et eller andet i db, skal den sende til en hel mailliste?

Næh blot en enkelt mailadresse som er fast defineret

ok to sec

Her er et simpelt brugersystem hvor jeg sender en mail til en bruger, den checker først om brugeren findes, hvis personen ikke findes og hvis det lykkedes at sende mailen, skriver jeg i en DB:
<%
username = request.form(\"username\")
password = request.form(\"password\")
password2 = request.form(\"password2\")
firstname = request.form(\"firstname\")
lastname = request.form(\"lastname\")
email = request.form(\"email\")
city = request.form(\"city\")

If username = \"\" then
usernameok = 0
else
usernameok = 1
End if

If password = \"\" Or password <> password2 then
passwordok = 0
else
passwordok = 1
End if

If email = \"\" then
emailok = 0
else
emailok = 1
End if

If usernameok = 1 And passwordok = 1 and emailok = 1 Then
Set Con = Server.CreateObject(\"ADODB.Connection\")
%>
<!--#include file=\"dsn.asp\"-->
<%

    Sql = \"SELECT * FROM user WHERE Username = \'\" & username & \"\'\"
    Set RS = Con.Execute(Sql)
    Sql = \"SELECT * FROM user WHERE email = \'\" & email & \"\'\"
    Set RSmail = Con.Execute(Sql)

        If (RS.BOF Or RS.EOF) Then
        If (RSmail.BOF Or RSmail.EOF) Then
jsubject = \"Oprettelse af bruger \" & username & \"!\"

  Set JMail          = Server.CreateObject(\"JMail.SMTPMail\")
  JMail.ServerAddress = \"smtp.dinserver.dk\"
  JMail.Sender        = \"din@email.dk\"
  JMail.Subject      = \"\" & jsubject &\"\"
  JMail.AddRecipient  \"\" & email &\"\"
  JMail.Priority      = 3
  JMail.AddHeader    \"Originating-IP\", Request.ServerVariables(\"REMOTE_ADDR\")

  \' ********** Her starter selve email-en
  JMail.Body = \"Hej \" & firstname & \"!\" & vbCrLf &_
      \"Tak for din tilmelding!\" & vbCrLf &_
      \"Dine oplysninger er som følger:\" & vbCrLf &_
      \"Username: \" & username & \"\" & vbCrLf &_
      \"Password: \" & password & \"\" & vbCrLf &_
      \"Fornavn: \" & firstname & \"\" & vbCrLf &_
      \"Efternavn: \" & lastname & \"\" & vbCrLf &_
      \"Email: \" & email & \"\" & vbCrLf &_
      \"Har du nogle spørgsmål kan de stilles til din@email.dk\"

  \' ********** Her slutter selve email-en

  JMail.Execute
  If not Err.Number <> 0 Then
            SqlNy = \"INSERT INTO user (Username, city, password, firstname, lastname, email) VALUES(\'\" & username & \"\',\'\" & city & \"\',\'\" & password & \"\',\'\" & firstname & \"\',\'\" & lastname & \"\',\'\" & email & \"\')\"
            Con.Execute(SqlNy)
            Count = 0

  Else
Response.Write \"Error: \" & err.description
  End If
  End If
  End If
  End If

%>

Den bruger godt nok Jmail jeg kender ikke den der std cdonts

jeg mangler <!--#include file=\"dsn.asp\"-->

jeg kan ikke huske hvad linjen hedder når man skriver til access. jeg bruger primært mysql:
con.Open \"DRIVER={MySql}; SERVER=mysql.dinserver.dk; DATABASE=dindatabase; UID=brugernavn; PWD=ditpassword\"

Det er hvad der står i dsn.asp

lukker