escludere un campo nell'invio di un modulo

[kobra33]

Salve a tutti, nella pagina ASP fornita da Aruba per la gestione dei dati inseriti nel form dovrei escludere l'invio del contenuto di una text area contente l'informativa per la privacy che il visititatore deve solo autorizzare premendo un radiobutton. Come escludo il campo text area?
Grazie 1000
questo è il codice della pagina ASP :

<%
'============Linkbruttocane su specifiche MSDN================
'* 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

'* voce da modificare con il proprio indirizzo email

invioA = "******@****.**"

'* 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 = "********@*****.**"

'------------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 dominio " & nomeDominio
.TextBody = "Questi i dati inseriti nel modulo di contatto del sito: " & corpoMessaggio & ""
.Send
End With
%>
<script>
document.location.replace('grazie.asp');
</script>

[maximum]

Basta non recuperarlo....se è l'ultimo campo, prova così:

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

[kobra33]

ummmm...no, non mi da nessun cambiamento

[maximum]

Allora togli quella sintassi e recuperali ad uno ad uno, così sai quale non prendere.

[Franz78]

Prova cosi:


FOR numeroCampi = 1 TO (Request.Form.Count() - 2)
IF NOT Request.Form(numeroCampi) = "" THEN
if Request.Form.Key(numeroCampi) <> idcampoPrivacy then
corpoMessaggio = corpoMessaggio & vbCrLf & Request.Form.Key(numeroCampi) & " = " & Trim(Request.Form(numeroCampi))
end if
END IF
NEXT


ciao ciao

[kobra33]

no niente ancora, non è che per caso "idcampoPrivacy" ha bisogno di uno spazio? (il campo si chiama testo_privacy) Comunque non è l'ultimo campo perchè dopo ci sono i 2 radiobutton e il pulsante invia.

[kobra33]

Ok ora funziona ho messo - 4 perchè il campo "incriminato" era il quart'ultimo. Grazie ragazzi