Ir para conteúdo
Fórum CódigoFonte.net

underlineph

Membros
  • Total de itens

    1
  • Registro em

  • Última visita

  1. underlineph

    Enviar dados ASP para outro ASP

    Boa tarde, venho por meio deste post desesperadamente tentar encontrar uma solução. Criei uma página de cadastro com um form que o action vai para uma outra página que não tenho acesso e faz a inserção no banco de dados. Mas precisava criar um email de resposta automática pra esse formulário. O que fiz foi criar uma página intermediária, que faz o envio da resposta automática, pega os dados e insere na página cadastro.aspx. O que tá acontecendo, é que não funciona o cadastro. Alguém poderia me ajudar? Procurei algo sobre Server.Transfer, mas não sei como implementar. Desde já agradeço a atenção. <% //Atribuindo os dados do formulário submetido às variáveis strNome e strEmail strNome = Trim(Request.Form("_nome")) strEmail = Trim(Request.Form("_email")) strSexo = Trim(Request.Form("_sexo")) strFrase = Trim(Request.Form("_frase_promocao")) strCampanha = Trim(Request.Form("campanha")) //Agora imediatamente, criamos a mensagem padrão que será enviada de agradecimento ao usuário recém cadastrado. strMsgObrigado = "Olá, " & strNome & vbcrlf strMsgObrigado = strMsgObrigado & "Obrigado por se cadastrar em nosso site" & vbcrlf strMsgObrigado = strMsgObrigado & "Breve você receberá mais informações." & vbcrlf & vbcrlf strMsgObrigado = strMsgObrigado & "Abraços," & vbcrlf strMsgObrigado = strMsgObrigado & "Webmaster" //Criando novamente outra conexão com o CDONTS para enviar o email ao usuário. Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From = "[email protected]" objMail.To = strEmail //observe objMail.Subject = "Seu cadastro em nosso site!" objMail.Body = strMsgObrigado objMail.Send Set objMail = nothing //Pronto. Um email de agradecimento com uma mensagem personalizada com o nome de cada usuário foi enviado por email. Simples e muito eficiente. //Envia cadastro para o banco de dados. Server.Transfer("cadastro.aspx") %>
×
×
  • Criar Novo...