Newsgroup: it.comp.www.asp
Titolo: Mandare una mail da un form in contemporanea

Ciao a tutti sono un newbie e questo è il mio primo messaggio in questo NG.
Ho realizzato un form in asp che va ad aggiornare i campi di un mbd.
Come faccio ad aggiungere una azione che oltre alla scrittura dei dati nel
mdb che già fa
mi manda un email in automatico di avviso che il mdb è stato aggiornato con
un nuovo record?
Meglio usare una sorgente perl? Non ho mai fatto in asp e soprattutto due
action in contemporanea.
Scusatemi se faccio domande banali.
Ciao e Grazie,
Vittorio

Aggiungi queste righe:
  Set objMail = Server.CreateObject("CDONTS.NewMail")
  objMail.From= E-mailDelMittente
  objMail.Body = "E' stato aggiunto un record nel database"
  objMail.To = E-mailDelDestinatario
  objMail.Subject = "ModificaDatabase"
  objMail.Send
  set objMail = nothing
Ciao, Vincenzo

Questo è il codice di una pagina che aggiunge un utente al database e gli
manda una mail di conferma, spero che ti sia utile.
<% if request.form("nome") <> "" and request.form("login") <> "" and
request.form("password") <> "" and request.form("mail") <> "" then
 nome = request.form("nome")
 mail = request.form("mail")
 login = request.form("login")
 password = request.form("password")
 Set conn = Server.CreateObject("ADODB.Connection")
 set rs = Server.CreateObject("ADODB.Recordset")
 conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" &
server.MapPath("database.mdb")
 SQL = "SELECT * FROM tabella WHERE login = '" & login & "'"
 rs.Open SQL, conn
' Se non c'è già un utente con lo stesso login la query risulta vuota...
 if rs.EOF then
  SQL = "INSERT INTO tabella (nome, mail, login, password)"
  SQL = SQL & "VALUES ('" & nome & "','" & mail & "','" & login & "','" &
password & "')"
  conn.execute SQL
  Set objMail = Server.CreateObject("CDONTS.NewMail")
  objMail.From="
in...@dufour.it
"
  objMail.Body="La tua iscrizione a 
www.dufour.it
 è avvenuta con successo."
& VbCrlf & "Il tuo login e la tua password sono:" & VbCrlf & "Login: " &
login & VbCrlf & "Password: " & password & VbCrlf & "---" & VbCrlf & "Lo
Staff di Etruria Marine Service" & VbCrlf & "
www.dufour.it
"
  objMail.To=mail
  objMail.Subject="Iscrizione"
  objMail.Send
  set objMail = nothing
%>
  <p align="center">&nbsp;</p>
  <p align="center"><font face="Verdana, Arial, Helvetica, sans-serif"
size="3">L'utente
  <font color=red><%= nome %></font> &egrave; stato registrato con
successo</font></p>
  <p align="center"><font face="Verdana, Arial, Helvetica, sans-serif"
size="3">riceverai
  una mail di conferma all'indirizzo che hai indicato</font></p>
  <p align="center"><font face="Verdana, Arial, Helvetica, sans-serif"
size="3">
  clicca <a href="sezione_usato2.asp">qui</a> per accedere alla descrizione
approfondita
  delle imbarcazioni usate.</font></p>
 <% else %>
  <p align="center">&nbsp;</p>
  <p align="center"><font face="Verdana, Arial, Helvetica, sans-serif"
size="3">Il
  login <font color=red><%= login %></font> &egrave; stato gi&agrave;
usato.</font></p>
  <p align="center"><font face="Verdana, Arial, Helvetica, sans-serif"
size="3">
  clicca <a href="iscrizione.htm">qui</a> per tornare alla pagina precedente
e sceglierne
  un'altro.</font></p>
 <% end if
 set rs = Nothing
 conn.close
 set conn = Nothing
else %>
 <p align="center">&nbsp;</p>
 <p align="center"><font face="Verdana, Arial, Helvetica, sans-serif"
size="3">La
 form di iscrizione non è stata compilata correttamente</font></p>
 <p align="center"><font face="Verdana, Arial, Helvetica, sans-serif"
size="3">
 clicca <a href="iscrizione.htm">qui</a> per tornare alla pagina precedente
e completare
 l'iscrizione.</font></p>
<% end if %>