rilevare i campi form

[pattaya]

Vorrei ordinare i campi del form che mi arriva tramite cdosys asp.

invecedi questo:

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

Li volevo ordinare a mio piacimento.
Ho trovato questo:

For each i in Request.Form
if i <> "destinatario" then
body = body & i & ": " & Request.Form(i)&chr(13)&Chr(10)
end if
next

ma non so inserire i campi

I campi sono nome, cognome, indirizzo, ecc.
Grazie

[Roby_72]

Ti conviene recuperarli uno alla volta.

Roby

[pattaya]

Si! Ma come?

[Roby_72]

Forse non ho capito io... Cmq:

destinatario = trim(request.form("destinatario"))
mittente = trim(request.form("mittente"))
.....
.....

e poi li metti dove e come vuoi.

Roby

[pattaya]

Grazie ma, dove li devo posizionare all'interno dello script?

es:
------------------------------------------------------------
For each i in Request.Form
if i <> "destinatario" then
body = body & i & ": " & Request.Form(i)&chr(13)&Chr(10)

destinatario = trim(request.form("destinatario"))
mittente = trim(request.form("mittente")

end if
next
-------------------------------------------------------------

Sicuramente non così.
Aiutami grazie.

[Roby_72]

for each devi sparire...

[pattaya]

Scusami ma non capisco cosa devo fare.
mi puoi indicare come modificare?
------------------------------------------------
<%


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

invioA = "info@dominio.it"

invioDa = "info@dominio.it"

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 & vbCrLf & Request.Form.Key(numeroCampi) & " = " & Trim(Request.Form(numeroCampi))
END IF
NEXT




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 = "Prenotazioni - " & nomeDominio
.TextBody = "Modulo dalla pagina " & modulo & " indirizzo IP " & indirizzoIp & vbCrLf & corpoMessaggio & ""
.Send
End With
%>
<script>
document.location.replace('grazie.asp');
</script>