dificuldade em ediatr o código.

[Oguiga 0]

Olá, Bom Dia

 

 

Estou com problema em um padrão de formulário em ASP.

 

Estou com um site hospedado na HOSTNET, e para que um formulário seja enviado a partir do site (no meu caso todo em flash) é necessário usar um script em ASP que eles já possuem..................................até aí tudo bem. Fiz tudo certinho e quando clica-se em enviar o formulário chega ao e-mail perfeitamente.....................porém ele não reconhece os campos do meu formulário (nome, email, telefone, mensagem) e não consegui descobrir como edita-lo afim de faze-lo reconhecer os tais campos.

 

AJUDEM.

 

esse é o código que eles disponibilizam:

 

 

<%
 ' Definindo uma variavel auxiliar
  sch = "http://schemas.microsoft.com/cdo/configuration/"

  ' Criando o objeto de configuração do CDO
  Set cdoConfig = Server.CreateObject("CDO.Configuration")

  ' Definindo as configurações
  cdoConfig.Fields.Item(sch & "sendusing") = 2
  cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1
  cdoConfig.Fields.Item(sch & "smtpserver") = "smtp.teatrogamboanova.com.br"
  cdoConfig.Fields.Item(sch & "sendusername") = "contato=teatrogamboanova.com.br"
  cdoConfig.Fields.Item(sch & "sendpassword") = "contatogamboa"
  cdoConfig.fields.update

  ' Criando o objeto de msg do CDO
  Set cdoMessage = Server.CreateObject("CDO.Message")

  ' Associando as configurações ao obj Mensagem
  Set cdoMessage.Configuration = cdoConfig

  ' Definido variaveis da msg
  cdoMessage.From = "contato@teatrogamboanova.com.br"
  cdoMessage.To = "contato@teatrogamboanova.com.br"
  cdoMessage.Subject = "Formulário de Contato"

  ' Utilize esta opção caso deseje definir o e-mail de resposta
'  cdoMessage.ReplyTo = "EMailDeResposta@DominioDeResposta.com"
  
  cdoMessage.TextBody = "Conteúdo"
 
 
  cdoMessage.Send 
  Set cdoMessage = Nothing
  Set cdoConfig = Nothing
%>

[Ted k' 126]

não reconhece os campos nome, email, telefone, mensagem é pq você não está usando eles!!

[Oguiga 0]

Então TED,

 

Eu percebi isso que não há nenhuma linha que chame os campos do, porém todas a tentativas que eu fiz de colocar alguma que chame deu erro no script

 

Então não sei como formatar uma linha dentro desse código que chame os campos dinâmicos, ainda mais pelo fato de ser bastante leigo em ASP.

 

 

tentei colocando:

 

 

strBody = "Dados" & vbCrLf & vbCrLf & _

"Nome: "& Request("nome") & vbCrLf & _

"E-Mail: "& Request("email") & vbCrLf & _

"Endereco: "& Request("Endereco") & vbCrLf & _

"Telefone: "& Request("telefone") & vbCrLf & _

"Mensagem: "& Request("mensagem")

strBody = strBody & "."

 

 

 

 

e tentei também

 

 

nome = Request.form("nome")

email = Request.form("email")

telefone = Request.form("telefone")

mensagem = Request.form("mensagem")

 

 

 

 

Como devo proceder?

[Anderson Roberto 0]

Você consegue recuperar os campos do formulário Flash?

[Oguiga 0]

Bem, o que ocorre é que o formulário é enviado certinho, e os dados que foram escritos no formulário não são enviados, creio eu pelo fato de não haver nenhuma linha dentro do asp que "chame" esse conteúdo.

 

Depois que você clica em enviar o formulário apaga para que se possa enviar outra msg.

 

DETALHE: A única informação que aparece no corpo do formulário enviado é "Conteúdo" devido a linha dentro do ASP chamado "cdoMessage.TextBody = "Conteúdo""

[Anderson Roberto 0]

Altere a página ASP para que recupere os dados do formulário, assim poderá utilizá-los.

[Oguiga 0]

Ok,

 

Anderson

 

acredito que isso posso solucionar.

 

Mas como é que eu faço isso em ASP???

 

os campos são (nome, email, telefone e mensagem)

 

:S

 

Obrigado

[Anderson Roberto 0]

Com o Request:

Request("nome_do_campo")

[Oguiga 0]

Então o código fica assim:

 

 

 

sch = "http://schemas.microsoft.com/cdo/configuration/"

  ' Criando o objeto de configuração do CDO
  Set cdoConfig = Server.CreateObject("CDO.Configuration")

  ' Definindo as configurações
  cdoConfig.Fields.Item(sch & "sendusing") = 2
  cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1
  cdoConfig.Fields.Item(sch & "smtpserver") = "smtp.teatrogamboanova.com.br"
  cdoConfig.Fields.Item(sch & "sendusername") = "contato=teatrogamboanova.com.br"
  cdoConfig.Fields.Item(sch & "sendpassword") = "contatogamboa"
  cdoConfig.fields.update

  ' Criando o objeto de msg do CDO
  Set cdoMessage = Server.CreateObject("CDO.Message")

  ' Associando as configurações ao obj Mensagem
  Set cdoMessage.Configuration = cdoConfig

  ' Definido variaveis da msg
  cdoMessage.From = "contato@teatrogamboanova.com.br"
  cdoMessage.To = "contato@teatrogamboanova.com.br"
  cdoMessage.Subject = "Formulário de Contato"
  
"Nome: "& Request("nome") & vbCrLf & _ 
  "E-Mail: "& Request("email") & vbCrLf & _ 
  "Telefone: "& Request("telefone") & vbCrLf & _ 
  "Mensagem: "& Request("mensagem")

  ' Utilize esta opção caso deseje definir o e-mail de resposta
'  cdoMessage.ReplyTo = "EMailDeResposta@DominioDeResposta.com"
  
  cdoMessage.TextBody = "Conteúdo"
 
 
  cdoMessage.Send 
  Set cdoMessage = Nothing
  Set cdoConfig = Nothing

 

ou assim??

 

sch = "http://schemas.microsoft.com/cdo/configuration/"

  ' Criando o objeto de configuração do CDO
  Set cdoConfig = Server.CreateObject("CDO.Configuration")

  ' Definindo as configurações
  cdoConfig.Fields.Item(sch & "sendusing") = 2
  cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1
  cdoConfig.Fields.Item(sch & "smtpserver") = "smtp.teatrogamboanova.com.br"
  cdoConfig.Fields.Item(sch & "sendusername") = "contato=teatrogamboanova.com.br"
  cdoConfig.Fields.Item(sch & "sendpassword") = "contatogamboa"
  cdoConfig.fields.update

  ' Criando o objeto de msg do CDO
  Set cdoMessage = Server.CreateObject("CDO.Message")

  ' Associando as configurações ao obj Mensagem
  Set cdoMessage.Configuration = cdoConfig

  ' Definido variaveis da msg
  cdoMessage.From = "contato@teatrogamboanova.com.br"
  cdoMessage.To = "contato@teatrogamboanova.com.br"
  cdoMessage.Subject = "Formulário de Contato"
  "Nome: "& Request("nome")
  "E-Mail: "& Request("email") 
  "Telefone: "& Request("telefone")
  "Mensagem: "& Request("mensagem")

  ' Utilize esta opção caso deseje definir o e-mail de resposta
'  cdoMessage.ReplyTo = "EMailDeResposta@DominioDeResposta.com"
  
  cdoMessage.TextBody = "Conteúdo"
 
 
  cdoMessage.Send 
  Set cdoMessage = Nothing
  Set cdoConfig = Nothing
  
	




%>

[Anderson Roberto 0]

Onde você quer mostrar estas informações?

[Oguiga 0]

o Objetivo é que as informações escritas no formulário.

 

Nome

 

E-mail

 

 

Telefone

 

 

mensagem

 

 

 

Sejão enviadas para o e-mail

 

Sejão enviadas para o e-mail, de qualquer forma, desde que apareça o que foi escrito......no e-mail.

[Anderson Roberto 0]

Se for no corpo do e-mail tente assim:

sch = "http://schemas.microsoft.com/cdo/configuration/"

  ' Criando o objeto de configuração do CDO
  Set cdoConfig = Server.CreateObject("CDO.Configuration")

  ' Definindo as configurações
  cdoConfig.Fields.Item(sch & "sendusing") = 2
  cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1
  cdoConfig.Fields.Item(sch & "smtpserver") = "smtp.teatrogamboanova.com.br"
  cdoConfig.Fields.Item(sch & "sendusername") = "contato=teatrogamboanova.com.br"
  cdoConfig.Fields.Item(sch & "sendpassword") = "contatogamboa"
  cdoConfig.fields.update

  ' Criando o objeto de msg do CDO
  Set cdoMessage = Server.CreateObject("CDO.Message")

  ' Associando as configurações ao obj Mensagem
  Set cdoMessage.Configuration = cdoConfig

  ' Definido variaveis da msg
  cdoMessage.From = "contato@teatrogamboanova.com.br"
  cdoMessage.To = "contato@teatrogamboanova.com.br"
  cdoMessage.Subject = "Formulário de Contato"

  mensagem = "Nome: "& Request("nome") & vbCrLf & _
					  "E-Mail: "& Request("email") & vbCrLf & _
					  "Telefone: "& Request("telefone") & vbCrLf & _
					  "Mensagem: "& Request("mensagem")

  ' Utilize esta opção caso deseje definir o e-mail de resposta
'  cdoMessage.ReplyTo = "EMailDeResposta@DominioDeResposta.com"
  
  cdoMessage.TextBody = mensagem


  cdoMessage.Send
  Set cdoMessage = Nothing
  Set cdoConfig = Nothing

[Oguiga 0]

AEEEEEEEE

 

Anderson,

 

Putz cara, nem sei como te agradecer, já tava ficando puto com isso.

 

E a solução para a charada foi beeeem mais fácil do que imaginei, e olhe que entendo muito pouco de ASP.

 

Muito Obrigado.

[Anderson Roberto 0]

Que bom! :D