Salve!
Perché (secondo voi) questi codici non funzionano come dovrebbero?
Per farli funzionare correttamente, devi:
1- mandarmi una mail con i dati inseriti
2- scrivere i dati nel db
Il problema è che l?email non mi arriva? funzionando solo il salvataggio nel db.
Devo ottimizzare i codici, o vanno bene così?
<%
Option Explicit
Dim NomeAzienda, Canale, AltraAttivita, Indirizzo, Citta, Provincia, Cap
Dim Telefono, Fax, Email, SitoWeb, Profilo
Dim strSql, objConn, dbConn, objMail
%>
<html>
<head>
<%
Sub Main()
ecco_fatto(email)
manda_posta()
escreve_db()
End sub
'--------------------------------------------------------
Sub ecco_fatto(email)
response.write "Ok! I dati della tua azienda sono stati inviati in modo corretto."
End sub
'--------------------------------------------------------
Sub manda_posta()
NomeAzienda=Request.Form("NomeAzienda")
Canale=Request.Form("Canale")
AltraAttivita=Request.Form("AltraAttivita")
Indirizzo=Request.Form("Indirizzo")
Citta=Request.Form("Citta")
Provincia=Request.Form("Provincia")
Cap=Request.Form("Cap")
Telefono=Request.Form("Telefono")
Fax=Request.Form("Fax")
Email=Request.Form("Email")
SitoWeb=Request.Form("SitoWeb")
Profilo=Request.Form("Profilo")
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = request("Email")
objMail.To = "visfit@hotmail.com"
objMail.Subject = "Registrazione"
objMail.Body = "Nome Azienda: " & request("NomeAzienda") & VbCrLf &_
"Canale: " & request("Vanale") & VbCrLf &_
"Altra Attivita: " & request("AltraAttivita") & VbCrLf &_
"Indirizzo: " & request("Indirizzo") & VbCrLf &_
"Citta': " & request("Citta") & VbCrLf &_
"Provincia: " & request("Provincia") & VbCrLf &_
"CAP: " & request("Cap") & VbCrLf &_
"Telefono: " & request("Telefono") & VbCrLf &_
"Fax: " & request("Fax") & VbCrLf &_
"E-mail: " & request("Email") & VbCrLf &_
"Sito web: " & request("Sito_web") & VbCrLf &_
"Profilo: " & request("Profilo") & VbCrLf &_
"Fine!"
objMail.BodyFormat=1
objMail.MailFormat=1
objMail.Send
Set objMail = Nothing
End sub
'--------------------------------------------------------
Sub escreve_db()
NomeAzienda=Request.Form("NomeAzienda")
Canale=Request.Form("Canale")
AltraAttivita=Request.Form("AltraAttivita")
Indirizzo=Request.Form("Indirizzo")
Citta=Request.Form("Citta")
Provincia=Request.Form("Provincia")
Cap=Request.Form("Cap")
Telefono=Request.Form("Telefono")
Fax=Request.Form("Fax")
Email=Request.Form("Email")
SitoWeb=Request.Form("SitoWeb")
Profilo=Request.Form("Profilo")
strsql = "INSERT INTO REGISTRO"
strsql = strsql & "("
strsql = strsql & "NomeAzienda,"
strsql = strsql & "Canale,"
strsql = strsql & "AltraAttivita,"
strsql = strsql & "Indirizzo,"
strsql = strsql & "Citta,"
strsql = strsql & "Provincia,"
strsql = strsql & "Cap,"
strsql = strsql & "Telefono,"
strsql = strsql & "Fax,"
strsql = strsql & "Email,"
strsql = strsql & "SitoWeb,"
strsql = strsql & "Profilo)"
strsql = strsql & " VALUES('"
strsql = strsql & NomeAzienda
strsql = strsql & "','"
strsql = strsql & Canale
strsql = strsql & "','"
strsql = strsql & AltraAttivita
strsql = strsql & "','"
strsql = strsql & Indirizzo
strsql = strsql & "','"
strsql = strsql & Citta
strsql = strsql & "','"
strsql = strsql & Provincia
strsql = strsql & "','"
strsql = strsql & Cap
strsql = strsql & "','"
strsql = strsql & Telefono
strsql = strsql & "','"
strsql = strsql & Fax
strsql = strsql & "','"
strsql = strsql & Email
strsql = strsql & "','"
strsql = strsql & SitoWeb
strsql = strsql & "','"
strsql = strsql & Profilo
strsql = strsql & "')"
Set objConn = Server.CreateObject("Adodb.connection")
ObjConn.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)};" & _
"DBQ=" & server.MapPath("azienda_db.mdb") & ";"
objConn.Open dbConn
objConn.Execute strsql
objConn.Close
set objConn = Nothing
End Sub
%>
</head>
<body>
<%
call Main()
%>
</body>
</html>
