Form con invio due email diverse

[Pierhagi]

Ciao a tutti

ho realizzato un modulo inserimento dati per richiesta di un preventivo.

Quando l'utente clicca sul tasto inserisci viene spedita un email all'utente che compila il modulo (ovviamente nel fomr c'è il campo email dove l'utente deve scrivere la sua email).

Ora vorrei aggiungere un altro invio email per avvertire il gestore del sito che è stato chiesto un preventivo, come posso fare o che componente devo cercare in rete?

Con il codice sotto invio l'email all'utente:

<% 
mes = "0"
IsSuccess = false


sTo = Request.form("EMAIL")
'sTo="registrazione@nomesito.xx"

sFrom = "registrazione@nomesito.xx"
'sFrom = Request.form("EMAIL")

sSubject = "Attivazione Nome Sito: www.nomesito.xx"
sMailServer = "127.0.0.1"

sBody = "www.nomesito.xx/attivazione.asp?user="& request.form("USERNAME")&"&controllo="&controllo&"" ' utilizzo la var ocntrollo

Set objMail = Server.CreateObject("CDO.Message")
Set objConf = Server.CreateObject("CDO.Configuration")
Set objFields = objConf.Fields

With objFields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = sMailServer
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Update
End With

With objMail
Set .Configuration = objConf
.From = sFrom
.To = sTo
.Subject = sSubject
.TextBody = sBody
End With

Err.Clear
on error resume next

objMail.Send
if len(Err.Description) = 0 then
mes = " Message sent to " + sTo
mes = mes + " TESTS COMPLETED SUCCESSFULLY!"
IsSuccess = true
else
mes = " " + Err.Description + " TESTS FAILED!"
end if
Set objFields = Nothing
Set objConf = Nothing
Set objMail = Nothing

if IsSuccess then
Response.Write "<div class='testRelults' id='testSuccessful'><span class='testResult'>Success:</span>" & html & "</div>"
else
Response.Write "<div class='testRelults' id='testFailed'><span class='testResult'>Fail:</span>" & html & "</div>"
end if
%>

[Grambo]

se l'email è diversa da quella che riceve l'utente (e credo di si), fanne un'altra dopo l'invio della prima email

prima di if issuccess

[Pierhagi]

ho provato così:

sTo = Request.form("EMAIL")

sTo_admin = "admin@nomesito.xx"

.To = sTo and sTo_admin

mes = " Message sent to " + sTo + sTo_admin

...ma non va!

[Grambo]

ricordati di farlo prima di chiudere gli oggetti

Set objFields = Nothing
Set objConf = Nothing
Set objMail = Nothing

cosa vuol dire non va? che errore restituisce?