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

[enrico16101990]

ho provato in questo modo

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

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


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

Dim Mail
  Set Mail = Server.CreateObject("CDONTS.NewMail")
  Mail.From       = "info@xxx.com"
  Mail.To         = "xxx@libero.it"
  Mail.Subject    = "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 
%>

questa e la parte modificata:

  Set Mail = Server.CreateObject("CDONTS.NewMail")
  Mail.From       = "info@xxx.com"
  Mail.To         = "xxx@libero.it"
  Mail.Subject    = "email"
  Mail.Body       = "qui scrivi il testo che vuoi che appai nella mail"
  Mail.Importance = 1
  Mail.Send            'invia la e-mai

ma sempre il solito errore:

Microsoft JET Database Engine error '80040e14'

Syntax error in INSERT INTO statement.

prova/Invia_prova.asp, line 95

[cavicchiandrea]

ordini (nome, cognome, email,) "&_ l'ultima virgola (quella rossa) non ci vuole

Domanda: Ma non vuoi studiare (almeno i fondamentali) asp per un motivi religiosi, politici, sessuali, logici, o cosa?

[enrico16101990]

diciamo per quelli logici...
scherzo sinceramente stò pensando seriamente di andare a fare un corso

[enrico16101990]

corretto uno ma ecco che ne esce un altro:

Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

prova/Invia_prova.asp, line 98

800401f3

questo se non sbaglio credo che sia dovuto ad aruba.....
voi cosa ne dite?

[optime]

Originariamente inviato da enrico16101990
questo se non sbaglio credo che sia dovuto ad aruba.....
voi cosa ne dite?

avrai letto allora la documentazione di aruba, che dice che non si usa più CDONTS

[cavicchiandrea]

Originariamente inviato da optime
avrai letto....

fatica e leggere i post o una guida di asp da quando è diventato esperto di copia/incolla la programmazione non sono più un problema (a volte mescola i linguaggi ma non si può essere perfetti)

[enrico16101990]

salve ho letto quello riportato su aruba:
e ho modificato le righe in questo modo.

 						<%
nome = trim(Request.form("nome"))
nome = replace(nome,"'","''")
cognome = trim(Request.form("cognome"))
cognome = replace(cognome,"'","''")
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 ordini (login, ragione_sociale, email) "&_
"VALUES ('" & nome  & "','" & cognome & "','" & email & "')"
objconn.Execute(sql)

Set emailMail = Server.createObject("CDO.Message")
Set emailConfig = Server.createObject ("CDO.Configuration")
With emailConfig
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mioprovider.com"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.update
End With
Set emailMail.Configuration = emailConfig

  Mail.From       = "info@xxxx.com"
  Mail.To         = "xxxx@libero.it"
  Mail.Subject    = "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 
%>

ma ancora:

Microsoft VBScript runtime error '800a01a8'

Object required: '' 

prova/Invia_prova.asp, line 107

800401f3

che coincide a questa riga:

 Mail.From       = "info@xxxx.com"

P.S. a quando pare con tutte le battute che fate sto diventando la barzelletta del forum asp...

[optime]

il server di aruba risponde bene. stai tentando di usare l'oggetto mail senza averlo mai istanziato.

oggetto? istanziare?



insistisci!!!!

[enrico16101990]

già è vero ho usato With.
comunque ho modificato in questo modo è mi da un errore sulla riga 117

 Set emailMail.Configuration = emailConfig
  With.From       = "info@xxxx.com"
  With.To         = "xxxxxx@libero.it"
  With.Subject    = "email"
  With.Body       = "qui scrivi il testo che vuoi che appai nella mail"
  With.Importance = 1
  With.Send            'invia la e-mail
  Set Mail = nothing
  Response.Write "

 correttamente!</p><CENTER><H2>E-mail inviata!<H2></CENTER>"
objconn.Close

set objConn = nothing 
End With
%>

errore:

Microsoft VBScript compilation error '800a03f6'

Expected 'End'

/prova/Invia_prova.asp, line 117

se non sbaglio dice che ci vuole un end giusto?
alla fine c'è

end with

[optime]

Originariamente inviato da enrico16101990
già è vero ho usato With.
comunque ho modificato in questo modo è mi da un errore sulla riga 117
[CODE] Set emailMail.Configuration = emailConfig
With.From = "info@xxxx.com"
....

sai a cosa serve "with"?