ASP per form mail in flash

[Male]

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>"


%>

[santino83]

bello script


qual'è il problema?

[Male]

eh il problema è che voglio che mandi una email di conferma anche alla persona che invia.

[Male]

bello script in che senso?...me lo hanno passato io non sono pratico di asp.

[santino83]

hai provato a mettere al posto di mail.Bcc="miosito" mail.Bcc="campo_inserito_dall'utente"?

[Male]

ma così facendo gli arriva direttamente l'email che ha mandato lui.
io invece vorrei che gli venisse tipo: la sua richiesta è stata inoltrata con successo le risponderemo nel minor tempo possibile.

[santino83]

ah ok

prima di "if error.number....." metti

Set mail = Server.CreateObject("CDONTS.NewMail")
strFrom = " www.miosito.it <info@miosito.it>"
mail.From = strFrom
mail.to ="email_inserita_dall'utente"


strBody="grazie per aver inviato una email"
mail.Body = strBody
mail.Subject = "Richiesta ricevuta correttamente"
mail.mailFormat=0
mail.bodyFormat=0
mail.Send
set mail = nothing

[Male]

potresti riportare tutto lo script che ho messo con l'aggiunta che devo metterci? se no faccio un casino. Grazie

[santino83]

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


Set mail = Server.CreateObject("CDONTS.NewMail")
strFrom = " www.miosito.it <info@miosito.it>"
mail.From = strFrom
mail.to ="email_inserita_dall'utente"
strBody="grazie per aver inviato una email"
mail.Body = strBody
mail.Subject = "Richiesta ricevuta correttamente"
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>"

[Male]

grazie mille davvero mi sei stato veramente di aiuto.
ti volevo fare una domanda alla quale non so se ci sia una vera e propria risposta.
Oltre a fare pagine asp per i form mail con il linguaggio asp cosa posso creare?
Grazie mille
MAle