inserimento record + cdonts

[slay]

ciao a tutti devo inserire un record in un db access e fin qui tutto ok però appena inserito il record vorrei ricevere una e-mail ho fatto così ma non mi arriva nessuna e-mail e tutto giusto? o sbaglio qualcosa?

 <%
DIM strUsername
messaggio = Request.Form("messaggio")
email = Request.Form("email")
nome = Request.Form("nome")
IF messaggio <> "" or nome <> "" THEN
%>


<%' QUESTO SERVE PER NON CREARE ERRORI SE VENGONO INSERITI CARETTERI COME &%' ECC...
nome = replace(nome, "'", "''")
messaggio = replace(messaggio, "'", "''")
%>

<%
strSQL = "INSERT INTO guestbook (nome, email, testo) VALUES ('"& nome &"','"& email &"','"& messaggio &"')"
objConn.Execute(strSql)

'invio l'email
Set MyMail = Server.CreateObject("CDONTS.NewMail")
MyMail.From       = "info@bla.it"
MyMail.To         = "info@bla.it"
MyMail.Subject    = "Aggiunta Nuova Firma nel sito bla.it"
MyMail.Body       = "Qualcuno ha aggiunto una nuova firma nel guestbook per attivarla accedi all'area di amministrazione del sito [url]http://www.cvcv.it/admin[/url]"
MyMail.Importance = 0
MyMail.Send
Set MyMail = nothing

Response.Redirect("firmaok.asp")
'close connection object
%>



<%
ELSE
%>
<%Response.Redirect("guestbook.asp")%>


<%
END IF


objConn.Close
Set objConn = Nothing
%> 

[viki1967]

Sicuro di avere CDONTS e non CDOSYS come componente per l'invio della posta sul server su cui lavori?

[slay]

si..certo..

[viki1967]

Originariamente inviato da slay
si..certo..

Stoppa l'esecuzione dello script prima del response.redirect e vedi cosa succede.

[slay]

emm.. cioè come posso fermare lo script..

[viki1967]

strSQL = "INSERT INTO guestbook (nome, email, testo) VALUES ('"& nome &"','"& email &"','"& messaggio &"')" 
objConn.Execute(strSql) 

'invio l'email 
Set MyMail = Server.CreateObject("CDONTS.NewMail") 
MyMail.From       = "info@bla.it" 
MyMail.To         = "info@bla.it" 
MyMail.Subject    = "Aggiunta Nuova Firma nel sito bla.it" 
MyMail.Body       = "Qualcuno ha aggiunto una nuova firma nel guestbook per attivarla accedi all'area di amministrazione del sito http://www.cvcv.it/admin" 
MyMail.Importance = 0 
MyMail.Send 
Set MyMail = nothing 

response.end

Response.Redirect("firmaok.asp")

[slay]

non funge .. non mi fa nemmeno il redirect.. e non invia sta benedetta e-mail..

[slay]

un piccolo consiglio...

[Roby_72]

Il redirect non lo fa perché hai questa:
response.end


Detto ciò prova ad inviare usando un indirizzo del dominio.
Quindi nel .from metti una email valida del dominio dal quale spedisci.

Roby

[slay]

ho già tolto resposne.end e ho messo una email del dominio info@miodominio.it fa il redirect e mi inserisce il nuovo record nel db ma mi arriva una e-mail con scritto notifica stato non riuscita.. bouhh.. non riesco a capire mi sembra tutto ok o no?