Recebendo O Formulário Na Ordem

[Flavia Soul]

Olá meninos...

Seguinte

Tenho um script de envio de formulário que deixa as repostas uma bagunça. As ordens de recebimento ficam completamente fora da ordem do form original. alguém saberia por que? E se tem solução para isso?

Beijos

[.Andreia.]

  Citar

Olá meninos...

poxa... não generalize

Poste seu código pra gente vê

[Deividy]

puxo duas mulhere no forum!

a andreia já esta fazendo história aqui!

como ela disse poste o código ai que ajudamos mais fácil !

[Flavia Soul]

São 4 arquivos:

• o formulário em html que tem o "action= envia.asp".

• obrigado.htm

• erro.htm

• envia.asp

Abaixo vai o código do envia.asp:

<%@ Language=VBScript %>
<%
'Script para envio de e-mail em formulário

Dim vErro,vSucesso,vErr
vErro = ""
vSucesso = "obrigado.htm"
vErr = "erro.htm"
if Request.Form.Count + Request.QueryString.Count > 0 then
	Call Respform
	Call Resp
end if
'-----------------------------------------------------------
Sub Respform()
	On Error Resume Next
	Dim msg,vData,vHora,vPara,vNomeform,vFrom,vAssunto,vCc,vDom
	vNomeForm = "Contato"
	vPara = "suporte@netdominio.com.br"
	vFrom = "suporte@netdominio.com.br"
	vCc = "comercial@sosserve.com.br"
	vAssunto = "Novo Orçamento - Castelo do Frio"
	vData = Date()
	vData = day(vData) & "/" & month(vData) & "/" & year(vData)
	vHora = Time()
	vHora = hour(vHora) & "h" & minute(vHora) & "min" & second(vHora) & "s"
	msg = "Formulário " & vNomeForm
	msg = msg & " submetido em " & vData & " às " & vHora & VbCrLf & VbCrLf
	if Request.ServerVariables("REQUEST_METHOD") = "POST" then
  for each campo in Request.Form
  	if campo <> "B1" and campo <> "B2" and campo <> "B3" and campo <> "B4" then 
    msg = msg & string(60,"-") & vbcrlf
    msg = msg & campo & " : " & Request.Form(campo) & VbCrLf
  	end if
  next
	else
  for each campo in Request.QueryString
  	if campo <> "B1" and campo <> "B2" and campo <> "B3" and campo <> "B4" then 
    msg = msg & string(60,"-") & vbcrlf
    msg = msg & campo & " : " & Request.QueryString(campo) & VbCrLf
  	end if
  next
	end if
	msg = msg & string(60,"*") & vbcrlf
	EnviaEmail msg,vFrom,vPara,vCc,vAssunto
	If Err then
  vErro = Err.number & " : "
  vErro = Err.description
  Err.Clear
	End if
End Sub
'-----------------------------------------------------------
Function EnviaEmail(ByVal p_body, Byval p_from, ByVal p_to, ByVal p_cc, Byval p_subject)
	On Error Resume Next
	Dim iMsg, Flds, iConf, status
	Const SERVIDOR_SMTP = "200.155.18.14"
	status = true
	Set iMsg = Server.CreateObject("CDO.Message")
	Set iConf = Server.CreateObject("CDO.Configuration")
	Set Flds = iConf.Fields
	Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
	Flds("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SERVIDOR_SMTP
	Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
	Flds.Update
	With iMsg
  Set .Configuration = iConf
  .To = p_to
  .CC = p_cc
  .From = p_from
  .Sender = p_from
  .Subject = p_subject
  .TextBody = p_body
  .Send
	End With
	If Err.number <> 0 Then
  status = false
	End If
	If IsObject(iMsg) Then Set iMsg = Nothing
	If IsObject(Flds) Then Set Flds = Nothing
	If IsObject(iConf) Then Set iConf = Nothing
	EnviaEmail = status
End Function
'-----------------------------------------------------------
Sub Resp()
	if vErro = "" then
  Response.Redirect(vSucesso)
	else
  Response.Redirect(vErr)
	end if
End Sub
%>

Beijinhos...

[Flavia Soul]

Ah, Andréia...

Foi maaal... hehehe

Oieeee meninos e meninas....

[Deividy]

se teria que mudar essa parte aqui

[Flavia Soul]

Vou enviar o endereço do formulário pra você saber. Lembrando que ele tem obrigatoriedade em alguns campos.

Aqui vai o endereço do form

Beijos

[Flavia Soul]

Esqueci de falar...

Queria que ficasse na ordem que está on line. e outra coisa... não conheço muito o asp, por isso, onde eu ponho isso?

  Citar

for each campo in Request.Form

if campo <> "B1" and campo <> "B2" and campo <> "B3" and campo <> "B4" then

msg = msg & string(60,"-") & vbcrlf

msg = msg & campo & " : " & Request.Form(campo) & VbCrLf

end if

next

else

for each campo in Request.QueryString

if campo <> "B1" and campo <> "B2" and campo <> "B3" and campo <> "B4" then

msg = msg & string(60,"-") & vbcrlf

msg = msg & campo & " : " & Request.QueryString(campo) & VbCrLf

end if

Beijos