modulo che inserisce all'interno di un mdb e invia una mail all'e-mail inserita

[enrico16101990]

salve a tutti , vorrei unire queste due pagine:
Sinceramente non sò nemmeno se si può fare....
allora vi spiego queste sono due pagine separate, una provvede a inviare un e-mail istantanea, mentre l'altra inserisce i dati all'interno di un mdb, vorrei fare in modo che se io vado ad inserire i dati nel modulo vengono contemporaneamente inseriti nel modulo è mi sia inviato un promemoria sia a chi inserisce i dati e sia all'mio indirizzo e-mail...
qualcuno può darmi una mano?


invio mail

						 <?php
 // L'INDIRIZZO DEL DESTINATARIO DELLA MAIL
 $to = "xxxx@xxxxxx.xxxx";
 
 // IL SOGGETTO DELLA MAIL
 $subject = "titolo";
 
 // COSTRUZIONE DEL CORPO DEL MESSAGGIO
 $body = "Contenuto del modulo:\n\n";
 
 $body .= "nome: " . trim(stripslashes($_POST["nome"])) . "\n";
 $body .= "email: " . trim(stripslashes($_POST["email"])) . "\n";
 $body .= "cognome: " . trim(stripslashes($_POST["cognome"])) . "\n";
 $body .= "testo: " . trim(stripslashes($_POST["testo"])) . "\n"; 
 

 
 
 // INTESTAZIONI SUPPLEMENTARI
 $headers = "From: Modulo utenti<INDIRIZZO-COME-SOPRA>";
 
 // INVIO DELLA MAIL
 if(@mail($to, $subject, $body, $headers)) { // SE L'INOLTRO E' ANDATO A BUON FINE...
 
 echo "Il messaggio è stato inviato correttamente.";
  
 } else {// ALTRIMENTI...
 
 echo "Si sono verificati dei problemi nell'invio del preventivo.";
 
 }
 
 ?>

questo è inserimento al mdb

<%

nome = trim(Request.form("nome"))
nome = replace(nome,"'","''")
cognome = trim(Request.form("cognome"))
cognome = replace(cognome,"'","''")
cognome = trim(Request.form("ragione_sociale"))
cognome = replace(ragione_sociale,"'","''")
email = trim(Request.form("email"))
email = replace(email ,"'","''")




dim objconn,dbPath,dbConnString 
dbPath = server.mapPath("mdb-database/utenti.mdb")
dbConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& dbpath
set objConn = server.createObject("ADODB.Connection")
objConn.open dbConnString


SQL = "INSERT INTO utenti (nome, cognome, email,) "&_
"VALUES ('" & nome & "','" & cognome & "','" & email & "')"
objconn.Execute(sql)
response.write "

 correttamente!</p>"
objconn.Close
set objConn = nothing
%>

Grazie a tutti...
P.S. non sono tanto pratico di programmazione

[cavicchiandrea]

Per iniziare usa un solo linguaggio l'invio email e php l'inserimento e asp decidi quale usare convertendo uno dei due, oltretutto non sono neanche sicuro che si possino utilizzare due linguaggi contemporaneamente nella setessa pagina (al 99% direi di no)

Originariamente inviato da enrico16101990
..
P.S. non sono tanto pratico di programmazione

Anch'io avevo lo stesso problma poi studiando i linguaggi, in parte (non si finisce mai d'imparare) l'ho risolto, secondo me applicandoti puoi riuscirci anche tu!!!

[enrico16101990]

invece con questo sistema di invio e-mail?

<%

'Se alla pagina viene inviata la form con i dati...

if Request.Form("invia_btn") = "INVIA" then
  Dim Mail
  Set Mail = Server.CreateObject("CDONTS.NewMail")
  Mail.From       = Request.Form("nome")
  Mail.To         = Request.Form("cognome")
  Mail.Subject    = Request.Form("email")
  Mail.Body       = Request.Form("testo")
  Mail.Importance = 1
  Mail.Send            'invia la e-mail
  Set Mail = nothing
  Response.Write "<CENTER><H2>E-mail inviata!<H2></CENTER>"
else

'altrimenti visualizza la Form

%>

[optime]

è asp

[enrico16101990]

si
invio mail

<%

'Se alla pagina viene inviata la form con i dati...

if Request.Form("invia_btn") = "INVIA" then
  Dim Mail
  Set Mail = Server.CreateObject("CDONTS.NewMail")
  Mail.From       = Request.Form("nome")
  Mail.To         = Request.Form("cognome")
  Mail.Subject    = Request.Form("email")
  Mail.Body       = Request.Form("testo")
  Mail.Importance = 1
  Mail.Send            'invia la e-mail
  Set Mail = nothing
  Response.Write "<CENTER><H2>E-mail inviata!<H2></CENTER>"
else

'altrimenti visualizza la Form

%>

questo è inserimento al mdb

<%

nome = trim(Request.form("nome"))
nome = replace(nome,"'","''")
cognome = trim(Request.form("cognome"))
cognome = replace(cognome,"'","''")
cognome = trim(Request.form("ragione_sociale"))
cognome = replace(ragione_sociale,"'","''")
email = trim(Request.form("email"))
email = replace(email ,"'","''")




dim objconn,dbPath,dbConnString 
dbPath = server.mapPath("mdb-database/utenti.mdb")
dbConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& dbpath
set objConn = server.createObject("ADODB.Connection")
objConn.open dbConnString


SQL = "INSERT INTO utenti (nome, cognome, email,) "&_
"VALUES ('" & nome & "','" & cognome & "','" & email & "')"
objconn.Execute(sql)
response.write "

 correttamente!</p>"
objconn.Close
set objConn = nothing
%>

[optime]

bene, grazie per avercelo detto

[enrico16101990]

[enrico16101990]

Nessuno può aiutarmi?

[cavicchiandrea]

<%
nome = trim(Request.form("nome"))
nome = replace(nome,"'","''")
cognome = trim(Request.form("cognome"))
cognome = replace(cognome,"'","''")
cognome = trim(Request.form("ragione_sociale"))
cognome = replace(ragione_sociale,"'","''")
email = trim(Request.form("email"))
email = replace(email ,"'","''")

dim objconn,dbPath,dbConnString 
dbPath = server.mapPath("mdb-database/utenti.mdb")
dbConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& dbpath
set objConn = server.createObject("ADODB.Connection")
objConn.open dbConnString


SQL = "INSERT INTO utenti (nome, cognome, email,) "&_
"VALUES ('" & nome & "','" & cognome & "','" & email & "')"
objconn.Execute(sql)

Dim Mail
  Set Mail = Server.CreateObject("CDONTS.NewMail")
  Mail.From       = Request.Form("nome")
  Mail.To         = Request.Form("cognome")
  Mail.Subject    = Request.Form("email")
  Mail.Body       = "qui scrivi il testo che vuoi che appai nella mail"
  Mail.Importance = 1
  Mail.Send            'invia la e-mail
  Set Mail = nothing
  Response.Write "

 correttamente!</p><CENTER><H2>E-mail inviata!<H2></CENTER>"
objconn.Close
set objConn = nothing 
%>

Siamo alle astine [|||||||||] come all'asilo

[enrico16101990]

salve a tutti, ho provato queste righe e mi stampa questo errore

Microsoft JET Database Engine error '80040e14'

Syntax error in INSERT INTO statement.

/prova/Invia_prova.asp, line 95

che coincide con la riga:

objConn.open dbConnString

da cosa potrebbe dipendere?
Grazie ragazzi....