Ciao a tutti io vorrei che quando una persona compila in form del sito nei contatti e invia i dati gli venga mandata anche a lui una mail di conferma all'email che ha scritto nell'apposito spazio.
Ringraziandovi per la cortese attenzione vi allego sotto il mio asp.
Grazie mille
![]()
<%
on error resume next
Set mail = Server.CreateObject("CDONTS.NewMail")
strFrom = " www.miosito.it <info@miosito.it>"
mail.From = strFrom
mail.to ="info@mio sito.it"
mail.Bcc = "info@miosito.it"
strBody="<font color=red>Nuovo Contatto</font>
"
strBody=strBody & "Dettagli del contatto<hr>"
strBody= strBody & "Nome: "& Request("nome") &"
"
strBody= strBody & "Cognome: "& Request("cognome") &"
"
strBody=strBody & "E-mail: "& Request("email") &"
"
strBody=strBody & "Telefono: "& Request("tel") &"
"
strBody=strBody & "Indirizzo : "& Request("indirizzo") &"
"
strBody=strBody & "Città : "& Request("citta") &"
"
strBody=strBody & "Provincia : "& Request("provincia") &"
"
strBody=strBody & "Cap : "& Request("cap") &"
"
strBody=strBody & "Richiesta informazioni : "& Request("ric") &"
"
strBody = strBody & "Richiesta effettuata il: " & now() &"
"
strBody = strBody & "Indirizzo I.P. richiedente: "& request.ServerVariables("REMOTE_ADDR") &"
"
mail.Body = strBody
mail.Subject = "Richiesta informazioni dal sito"
mail.mailFormat=0
mail.bodyFormat=0
mail.Send
set mail = nothing
if err.number>0 then
strOutput= "Si è verificato un errore nell'invio dei dati tramite posta elettronica. I dati sono stati comunque salvati regolarmente."
else
strOutput ="Richiesta inoltrata correttamente, sarà nostra cura inviarLe una conferma "
end if
response.write "<center>Grazie per averci contattato ti chiameremo al più presto
I dati sono stati inviati con successo</center>"
%>

Grazie mille
Rispondi quotando