ASP não RECEBE OS DADOS DO FORMULARIO

[tannyeu]

Boa tarde,

Estou as dias tentando entender e resolver, mais não funciona, tenho uma pagina com um formulario e outra com que em ASP para enviar os dados do formulario para o email.

O formulario chega no email, mais os dados do formulario que é preenchido pelo usuario não chega, vem tudo vazio.

não sei mais o que fazer, então segue a baixo o arquivo ASP

<%
'Valores preenchidos no formulário 
cnpj = Request.Form("cnpj")
nomedoEscritorio = Request.Form("nomedoEscritorio")
nome = Request.Form("nome")
telefone = Request.Form("telefone")
email = Request.Form("email")
como = Request.Form("como")
descreva = Request.Form("descreva")

'Ao invés de preenchermos os e-mails utilizados diretamente na configuração do CDOSYS
emailFrom = "danieloliveiradasilva@bol.com.br"
emailTo = "danieloliveiradasilva@bol.com.br"

'Corpo para o e-mail que será enviado
corpoMensagem = "DADOS DO FORMULARIO <br><br>" & _
"CNPJ: "& cnpj &"<br>" & _
"NOME DO ESCRITORIO: "& nomedoEscritoria &"<br>" & _
"NOME: "& nome &"<br>" & _
"TELEFONE: "& telefone &"<br>" & _
"E-MAIL: "& email &"<br>" & _
"COMO CONHECEU?: "& como &"<br>" & _
"DESCREVA SUA NECESSIDADE:"& descreva

Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")

Set cdoConfig = Server.CreateObject("CDO.Configuration")
Set cdoMessage = Server.CreateObject("CDO.Message")
Set cdoMessage.Configuration = cdoConfig

'Aqui estava o meu problema: SSL tem que ser TRUE!
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
objCDOSYSCon.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtps.bol.com.br"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "danieloliveiradasilva@bol.com.br"
objCDOSYSCon.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "123124125DA"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
cdoConfig.Fields.Item(sch & "smtpusessl ") = True

objCDOSYSCon.Fields.update 

Set objCDOSYSMail.Configuration = objCDOSYSCon

'As variáveis onde estão preenchidos os e-mails do remetente e destinatário:
objCDOSYSMail.From = emailFrom
objCDOSYSMail.To = emailTo
objCDOSYSMail.Subject = "DADOS PARA ATUALIZACAO"

'Corpo da mensagem, criado anteriormente:
objCDOSYSMail.HtmlBody = corpoMensagem
objCDOSYSMail.Send

set objCDOSYSMail = nothing
set objCDOSYSCon = nothing
response.Redirect "Enviado.asp" 

%>

deste já agradeco por todos

[bareta]

você envia o form por post ou get?

o nome dos campos está correto?

[1980coelho]

opa, rapidamente vendo acho que vejo um erro claro..

tente dando nome da string diferente do nome do request exemplo abaixo:

strCNPJ = Replace(Request.Form("txtCNPJ")

Response.Write ("<b>CNPJ: </b></td><td><input type='text' name='txtCNPJ'>")

aguardo contato para saber se resolveu..