Ir para conteúdo
Fórum Script Brasil
  • 0

Form Asp usando cdo com autenticação e Flash


clebinho

Pergunta

E ai gente beleza !! estou aqui para pedir uma ajuda a todos , seguinte tenho um form em flash e envia os dados para asp, sendo que quando recebo o email as variaveis das input text não segue junto, peço a vocês essa ajuda pois não sei mais o que fazer.

agradeço a colaboração de todos.

segue o codigo asp :

' 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.ciberdata.com.br"
  cdoConfig.Fields.Item(sch & "sendusername") = "suporteciberdata=ciberdata.com.br"
  cdoConfig.Fields.Item(sch & "sendpassword") = "xxxxxxxx"
  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 = "suporteciberdata@ciberdata.com.br"
  cdoMessage.To = "suporteciberdata@ciberdata.com.br"
  cdoMessage.Subject = "Cadastro para Faturamento"
  
    
  msgHTML = msgHTML & "<b>Inscrição Estadual ou Municipal:</b> " & Request("inscricao") & "<br>"
  msgHTML = msgHTML &"<b>Ramo e Atividade:</b> " & Request("ramoatividade") & "<br>"                  
  msgHTML = msgHTML &"<b>Endereço Comercial:</b> " & Request("endcomercial") & "<br>"
  msgHTML = msgHTML &"<b>Complemento:</b> " & Request("complemento") & "<br>"
  msgHTML = msgHTML &"<b>Bairro:</b> " & Request("Bairro") & "<br>"
  msgHTML = msgHTML &"<b>Cidade:</b> " & Request.form("cidade") & "<br>"
  msgHTML = msgHTML &"<b>Cep:</b> " & Request.form("cep") & "<br>"
  msgHTML = msgHTML &"<b>Telefone Comercial:</b> " & Request.form("telcomercial") & "<br><br><br>"

  msgHTML = msgHTML &"<b>Responsável:</b> " & Request.form("responsavel") & "<br>"
  msgHTML = msgHTML &"<b>Email:</b> " & Request.form("email") & "<br>"
  msgHTML = msgHTML &"<b>Nome do Contato:</b> " & Request.form("nomecontato") & "<br>"
  msgHTML = msgHTML &"<b>Telefone do Contato:</b> " & Request.form("telcontato") & "<br>"
  msgHTML = msgHTML &"<b>Home Page:</b> " & Request.form("site") & "<br><br>"

  msgHTML = msgHTML &"<b>Endereço de Cobrança:</b> " & Request.form("cobranca") & "<br>"
  msgHTML = msgHTML &"<b>Complemento:</b> " & Request.form("complementocobra") & "<br>"
  msgHTML = msgHTML &"<b>Bairro:</b> " & Request.form("bairrocobranca") & "<br>"
  msgHTML = msgHTML &"<b>Cidade:</b> " & Request.form("cidadecobranca") & "<br>"
  msgHTML = msgHTML &"<b>Cep:</b> " & Request.form("cepcobranca") & "<br>"
  msgHTML = msgHTML &"<b>Mensagem:</b> " & Request.form("mensagem") & "<br>"

  'Utilize esta opção caso deseje definir o e-mail de resposta
  'cdoMessage.ReplyTo = Request.Form("email")

  
  cdoMessage.TextBody = "Em breve estaremos entrando em contato.;"

  cdoMessage.HTMLBody = msgHTML
  if msgHTML <> "" then
    cdoMessage.AutoGenerateTextBody = false
    cdoMessage.TextBody = request.Form
  end if
    
  cdoMessage.Send
  Set cdoMessage = Nothing
  Set cdoConfig = Nothing
  set objCDO = Nothing

%>
aqui o codigo do botão enviar do flash
on (release) {
   
    getURL("http://ciberdata.com.br/formulario/email_enviar.asp", "_self", "POST");
}

Link para o comentário
Compartilhar em outros sites

0 respostass a esta questão

Posts Recomendados

Até agora não há respostas para essa pergunta

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,5k
×
×
  • Criar Novo...