Ir para conteúdo
Fórum Script Brasil

Zero_Call

Membros
  • Total de itens

    1
  • Registro em

  • Última visita

Tudo que Zero_Call postou

  1. Zero_Call

    Aspemail

    Galera, estou com um problema, nunka mexi com asp e um cliente meu quer que eu desenvolva um formulário do flash que faça o envio através do ASPEmail, eu até fiz, mais não funciona, já contatei meu provedor e ele me disse que a ferramente ASPEMAIL está instalada no servidor... Eu já desenvolvi o formulário onde o botão enviar chama um arquivo chamado "email_Persits.asp" http://www.cineliterario.com.br/nucleutecnologia Esse Arquivo contém o seguinte código: <% Dim Mail Dim msgTxt Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "smtp.meudominio.com.br" Mail.Port = "25" Mail.From = "eu@meudominio.com.br" Mail.FromName = "Remetente" Mail.Subject = "Assunto" Mail.AddAddress request.form("email@destinatario.com.br"),"Nome_destinatario" Mail.Subject = "Assunto" msgTxt = Request("nome") & vbCrLf msgTxt = msgTxt & "Enviou um e-mail com os seguintes dados:" & vbCrLf & vbCrLf msgTxt = msgTxt & "Nome: " & Request("nome") & vbCrLf msgTxt = msgTxt & "E-mail: " & Request("email") & vbCrLf msgTxt = msgTxt & "DDD: " & Request("ddd") & vbCrLf msgTxt = msgTxt & "Telefone: " & Request("telefone") & vbCrLf msgTxt = msgTxt & "Mensagem: " & Request("message") Mail.Body = msgTxt On Error Resume Next Mail.Send If Err <> 0 Then Response.Write "Error encountered: " & Err.Description End If Response.Write("true") %> Alguém pode me ajudar??? Obrigado _ZERO_CALL_
×
×
  • Criar Novo...