Ir para conteúdo
Fórum Script Brasil

clebinho

Membros
  • Total de itens

    1
  • Registro em

  • Última visita

Tudo que clebinho postou

  1. 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"); }
×
×
  • Criar Novo...