For Each

[crucifier]

to usanu o for each para enviar os campos de uma solicitação de seguro...

e essas coisas precisa ser na ordem pro cara já imprimi lá e já ta td certo...mas o for each ta envianu td fora da ordem...nome prum lado cpf pra otro...sendo que na pagina que esta os campos esta td certinho...tem algum jeito de fazer ele enviar td certinho??

o codigo que eu to usanu é esse daih:

For each campo in request.form
   sBodyText = sBodyText & campo & ":"
   sBodyText = sBodyText & request.form(campo) & vbCrLf & vbCrLf 
next
	sBodyText = sBodyText & "----------------------------------------------" & vbCrLf 'corpo

[.Andreia.]

Ueh, ele não está vindo na ordem dos campos? tipo

<input type="text" name="campo1">

<input type="text" name="campo2">

<input type="text" name="campo5">

<input type="text" name="campo7">

<input type="text" name="campo8">

e ele não puxa assim:

campo1, campo2, campo5, campo7, campo8 ??

[crucifier]

não ta vinu não=(

tenta faze um teste...ele vai...no meu ateh vai...mas o marca sempre aparece em cima

sera q não tem um tipo order by igual mysql

[cyberalexxx]

Deixa eu te propor uma gambiarra:

Como voce não quer colocar um request para cada campo voce pode colocar um campo a mais no formulario só que escondido tipo hidden e informar a ordem dos campos exemplo:

<form action="request.asp" method="post">
<input type="text" name="campo2">
<input type="text" name="campo3">
<input type="text" name="campo1">
<input type="hidden" name="ordem" value="campo1/campo2/campo3">
<input type="submit" name="botao" value="enviar">
</form>
<%
ordem = request("ordem")
campos = split(ordem,"/")
For each campo in campos
   response.write "campo: " & campo & "<br>"
   response.write "Valor: " & request.form(campo) & "<br><br>"
next
%>

[JCMPJ]

Putz se você não sabe o nome dos campos no retorno...

[hicarocastro]

É desse jeito ai temos que obedecer o nome campo e o número sequencial depois, assim é complicado. precisamos arrumar uma forma melhor.

Ajuda aí gente, vejam o código:

for each variavel in request.form

dim pmsg

pmsg = pmsg + variavel & " - " & request(variavel) & "<br>"

next