Receber Todos Os Campos De Form

[crucifier]

tipw....para um formulario de contato uso este codigo:

<%
    Dim sMsgErr

    '***** Executa as ações desta página *****
    Sub ProcessaPagina()
    '***** Declaração das Variáveis *****
	sEMail = "meuemail@centropaulista.com.br"

    '***** Obtém valores preenchidos no Formulário *****
    Nome = Request.Form("Nome")
    Email = Request.Form("Email")
	Telefone = Request.Form("Telefone")
	Mensagem = Request.Form("Mensagem")

	'***** Monta corpo da mensagem a enviar por e-mail

	sBodyText = sBodyText & "CORRETO Seguros" & vbCrLf & vbCrLf'corpo
	sBodyText = sBodyText & " " & vbCrLf   'corpo
	sBodyText = sBodyText & "Nome: " & Nome &vbCrLf 'corpo
	sBodyText = sBodyText & "Email: " & Email &vbCrLf 'corpo
	sBodyText = sBodyText & "Telefone: " & Telefone &vbCrLf 'corpo
	sBodyText = sBodyText & "Mensagem:" & Mensagem &vbCrLf 'corpo


	sBodyText = sBodyText & "----------------------------------------------" & vbCrLf 'corpo

    '***** Envia E-Mail para o destinatário *****
    On Error Resume Next
    sMsgErr = ""
    Set Mail = Server.CreateObject("CDONTS.NewMail")
    Mail.From = "meuemail@centropaulista.com.br" ' Remetente da mensagem
    Mail.To = sEMail ' Destinatario da mensagem para
	Mail.Subject = "CORRETO Seguros" 'assunto
    Mail.Body = sBodyText 'corpo da mensagem montada acima
    Mail.Send
    If Err > 0 Then
    sMsgErr = "Ocorreu o seguinte erro ao tentar enviar o e-mail: " & Err.Description
    End If
    On Error GoTo 0
    End Sub
%>

mas agora eu preciso fazer um formulario imenso e para colocar todos aqueles request.form fik fodao dimaiz...e lembrei que não lembro quando nem onde, quando eu era amador eu usava uma página de envio que se não me engano o scriptbrasil oferecia...que qualquer campo que eu colocava no meu form ele enviava...

ou seja...ele não precisava declarar form por form com request.form...ele pegava tudo automaticamente...

e gostaria de saber desse jeito...

se alguém puder me informar agradeco muito...

[cyberalexxx]

voce pode dar um FOR EACH na coleção coleção Request.Form para recuperar todos os campos passados, exemplo:

For each campo in request.form
    response.write "campo: " & campo & "<br>"
    response.write "Valor: " & request.form(campo) & "<br><br>"
next

Acho que da certo, testa ai!!!

[crucifier]

só mais uma duvida...nesses lugares onde poe campo eu coloco alguma coisa ou dexo como campo mesmo?

[cyberalexxx]

campo é uma variavel que eu usei voce pode colocar qualquer nome exemplo:

For each campo_do_form in request.form

  response.write "campo: " & campo_do_form & "<br>"

  response.write "Valor: " & request.form(campo_do_form) & "<br><br>"

next

[crucifier]

vo testa aki cara....

valewzaum velho...muito obrigado mesmo...quebro um galhao!

[crucifier]

mais uma duvida cara...não sei se é do codigo que voce me passo ou é erro da minha pagina que contem o formulario...mas porq ele não envia na ordem que esta na pagina??

[cyberalexxx]

mais uma duvida cara...não sei se é do codigo que voce me passo ou é erro da minha pagina que contem o formulario...mas porq ele não envia na ordem que esta na pagina??

Isso eu não sei te responder, não sei qual o critério usado pelo laço (FOR EACH) na hora de pesquisar a coleção.

[Guest Guest]

beleza cara..valeu assim mesmo...valewzao mesmo...=]