Newsgroup: it.comp.www.asp
Titolo: Recupero variabile per inserimento invio mail da form con CDOSYS

Devo inviare mail di conferma dei dati inseriti nel form dai clienti;
quando c'č il menů a tendina delle Nazioni, mi riporta l'Id della Nazione e 
non il Nome!
Per vedere cosa intendo :  
www.architettonicamente.it/info.asp
Uso il metdo post con CDOSYS in formato html
DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, 
modulo, browserSistemaOperativo
nomeDominio     = Request.ServerVariables("HTTP_HOST")
indirizzoIp     = Request.ServerVariables("REMOTE_ADDR")
modulo      = Request.ServerVariables("HTTP_REFERER")
browserSistemaOperativo  = Request.ServerVariables("HTTP_USER_AGENT")
FOR numeroCampi = 1 TO (Request.Form.Count() - 1)
   IF NOT Request.Form(numeroCampi) = "" THEN
      corpoMessaggio = corpoMessaggio & "<br>" & 
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
    .Sender = Request.Form("email")
   .Subject = "Contatto dal dominio " & nomeDominio
   .HTMLBody = "<font face=verdana size=2>Questi i dati inseriti nel modulo 
presente alla pagina <b> " & modulo & " </b>da utente con indirizzo IP <b>" 
& indirizzoIp & " </b> browser e sistema operativo <b>" & 
browserSistemaOperativo  & "</b><br>" & corpoMessaggio
   .Send
End With
Avevo pensato di prendere un valore alla volta e dichiararlo,  ma il 
problema č lo stesso!
Grazie a tutti per la Vs. collaborazione

 Il mio blog: 
http://blogs.aspitalia.com/az
Diciamo che sono riuscito a far passare i valori: ho fatto un db in access.
Ora il problema è un altro:
dalla pagina 1 dove c'è il form, vado alla pg 2 dove inserisco i dati nel 
mio db e poi voglio mandare 2 mail.
Una serve a me per ovvio contatto dal cliente e l'altra la vorrei inviare al 
cliente per promemoria.
Ecco l'errore della pagina2:
"CDO.Message.1 error '80040213'
The transport failed to connect to the server.
/formcdosys_html2.asp, line 100 "
Nella riga 100 c'è proprio il comando "   .Send"!!!
Le istruzioni del CDOSYS le ho prese da un modello già fatto per Aruba, da 
Aruba.
Un'altra cosa che non capisco è il comando "Sender": esiste già un mittente 
"From" e i commenti che ho trovato non sono chiari.
Allego pagina2, eliminando la parte di recordset inserimento nel db:
DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, 
modulo, browserSistemaOperativo
 '* voce da modificare con il proprio indirizzo email
invioA =  "
in...@architettonicamente.it
"
 '* 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 =  "
linkbru...@technet.it
"
'------------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 & "<br>" & 
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 dominio " & nomeDominio
   '.TextBody = "Questi i dati inseriti nel modulo presente alla pagina " & 
modulo & " da utente con indirizzo IP " & indirizzoIp & "  browser e sistema 
operativo " & browserSistemaOperativo  & vbCrLf & corpoMessaggio & ""
   .HTMLBody = "<font face=verdana size=2>Questi i dati inseriti nel modulo 
presente alla pagina <b> " & modulo & " </b>da utente con indirizzo IP <b>" 
& indirizzoIp & " </b> browser e sistema operativo <b>" & 
browserSistemaOperativo  & "</b><br>" & corpoMessaggio
   .Send
End With
%>
<script>
document.location.replace('conferma.asp');
</script>

 Flds.Update
Il seguente codice, non funziona?
  Dim mail As New MailMessage
    mail.From = "mittente@email"
    mail.To = "destinatario@email"
    mail.Subject = "Prova e-mail con 
ASP.NET
"
    mail.Body = txtBody.Value
    SmtpMail.Send(mail)
