Form in Asp

[pariri]

ciao a tutti,
sto iniziando nel "mondo di asp" adesso e per dire la verità è molto bello!
Sono alle prime arme e quindi ho questo form nel mio sito e vorrei una piccola modifica.
Il codice ho scaricato dal mio provider Aruba:

code:



<%
'====
'* il corpo finale del messaggio contiene tutti i campi *
'* inseriti nella pagina html, in pratica puoi mettere *
'* tutti i campi che ti servono nel modulo di invio senza *
'* fare altre configurazioni aggiuntive. *
'=========

DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo

'* voce da modificare con il proprio indirizzo email

invioA = "info@mail.com"

'* voce da modificare con un indirizzo email che funga da mittente:
'* in caso di errore riceverete notifica a questo indirizzo un MAILER-DAEMON
'* dato che cdosys supporta questa notifica

invioDa = "info@mail.com"

'------------fine modifiche necessarie------------------

nomeDominio = Request.ServerVariables("HTTP_HOST")
indirizzoIp = Request.ServerVariables("REMOTE_ADDR")
modulo = Request.ServerVariables("HTTP_REFERER")
browserSistemaOperativo = Request.ServerVariables("HTTP_USER_AGENT")

'*rilevo i campi del form

FOR numeroCampi = 1 TO (Request.Form.Count() - 1)
IF NOT Request.Form(numeroCampi) = "" THEN
corpoMessaggio = corpoMessaggio & vbCrLf & Request.Form.Key(numeroCampi) & " = " & Trim(Request.Form(numeroCampi))
END IF
NEXT

'* creo gli oggetti cdosys sul server e li gestisco

DIM iMsg, Flds, iConf

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.aruba.it"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

With iMsg
Set .Configuration = iConf
.To = invioA
.From = Request.Form("email")
.Sender = invioDa
.Subject = "Contatto dal sito " & nomeDominio
.TextBody = "Questi i dati inseriti nel modulo presente alla pagina " & modulo & corpoMessaggio &""
.Send
End With
%>
<script>
document.location.replace('index.asp');
</script>

Il controllo dei campi uso un JS che avevo per html.

La cosa che volevo sarebbe questa:

Che il mittente riceva una e-mail di conferma, ossia, quando una persona invia una e-mail a me, riceve un altra dicendo appunto che ha inviato una e-mail a me.

Grazie molte!


::::::::::::::::::::::::::

[supergeniux]

Set iMsg = CreateObject("CDO.Message") 
Set iConf = CreateObject("CDO.Configuration") 
Set Flds = iConf.Fields 

Flds(cdoSendUsingMethod) = cdoSendUsingPort 
Flds(cdoSMTPServer) = "smtp.aruba.it" 
Flds(cdoSMTPServerPort) = 25 
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0 
Flds.Update 

With iMsg 
Set .Configuration = iConf 
.To = Request.Form("email") 
.From = invioA
.Sender = invioDa 
.Subject = "Contatto dal sito " & nomeDominio 
.TextBody = "Grazie per averci scritto
.Send 
End With

[pariri]

Ho provato però in questo modo riceve una email solo il mittente e io non ricevo niente!

Grazie.

[supergeniux]

quel codice devi aggiungerlo non devi usare solo quello...

[pariri]

Scusami, ma posto il codice perché non funziona e prima alla fine andava alla pagina index.asp e adesso ne anche.

code:


<%
'====
'* il corpo finale del messaggio contiene tutti i campi *
'* inseriti nella pagina html, in pratica puoi mettere *
'* tutti i campi che ti servono nel modulo di invio senza *
'* fare altre configurazioni aggiuntive. *
'=========

DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo

'* voce da modificare con il proprio indirizzo email

invioA = "info@sampacom.com"

'* voce da modificare con un indirizzo email che funga da mittente:
'* in caso di errore riceverete notifica a questo indirizzo un MAILER-DAEMON
'* dato che cdosys supporta questa notifica

invioDa = "info@sampacom.com"

'------------fine modifiche necessarie------------------

nomeDominio = Request.ServerVariables("HTTP_HOST")
indirizzoIp = Request.ServerVariables("REMOTE_ADDR")
modulo = Request.ServerVariables("HTTP_REFERER")
browserSistemaOperativo = Request.ServerVariables("HTTP_USER_AGENT")

'*rilevo i campi del form

FOR numeroCampi = 1 TO (Request.Form.Count() - 1)
IF NOT Request.Form(numeroCampi) = "" THEN
corpoMessaggio = corpoMessaggio & vbCrLf & Request.Form.Key(numeroCampi) & " = " & Trim(Request.Form(numeroCampi))
END IF
NEXT

'* creo gli oggetti cdosys sul server e li gestisco

DIM iMsg, Flds, iConf

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.aruba.it"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

With iMsg
Set .Configuration = iConf
.To = invioA
.From = Request.Form("email")
.Sender = invioDa
.Subject = "Contatto dal sito " & nomeDominio
.TextBody = "Questi i dati inseriti nel modulo presente alla pagina " & modulo & corpoMessaggio &""
.Send

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.aruba.it"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

With iMsg
Set .Configuration = iConf
.To = Request.Form("email")
.From = invioA
.Sender = invioDa
.Subject = "Contatto dal sito " & nomeDominio
.TextBody = "Grazie per averci scritto
.Send
End With
%>
<script>
document.location.replace('index.asp');
</script>


Grazie della pazienzia!

::::::::::::::::::::::::::::

[pariri]

Qualche idea?

[pariri]

Per favore, ho bisogno veramente di una mano!
Date una occhiata nel codice.

Grazie mille!

[pariri]

Nessuno sa come aiutarmi?

Grazie.

[supergeniux]

Acquista Active Server Pages 3.0 della Apogeo, e' la soluzione migliore

[pariri]

Sono d'accordo!
Però come mi avevi risposto che dovevo solo aggiungere il codice e non sono riuscito, lo ha fatto però forse ho sbagliato, ti chiedo solo di darmi una mano questa volta e poi come hai detto cercherò questo libro perché mi interessa l'asp.

Grazie ancora!