on (release) {
if (nome ne "" and email ne "" and assunto ne "" and mensagem ne "") {
loadVariablesNum("form.asp", 0, "GET");
gotoAndStop("enviar");
} else {
gotoAndStop("invalido");
}
}
pagina asp
<%
Destino = "meu@email.com.br" '' não quero informar
servidor = "**.com.br" 'aqui vai o nome do servidor.. mas não quero informar
titulo = "Formulario de contacto"
nome = Request("nome")
email = Request("email")
assunto = Request("assunto")
Mensagem = Request("Mensagem")
Set Mail = Server.CreateObject("Persits.MailSender") ' aqui não faço a minima ideia do que seja
strBody = strBody & "<font face='Verdana, Arial, Helvetica, sans-serif' size='2' color='#555555'>"
strBody = strBody & "Nome: "
strBody = strBody & "<b>" & nome & "</b><br><br>"
strBody = strBody & "E-mail: "
strBody = strBody & "<b>" & email & "</b><br><br>"
strBody = strBody & "Assunto: "
strBody = strBody & "<b>" & assunto & "</b><br><hr><br>"
strBody = strBody & "Mensagem: <br>"
strBody = strBody & mensagem & chr(10)
strBody = strBody & "</font>"
Mail.Host = servidor
Mail.Port = 25
Mail.From = "email@email.com.br"
Mail.FromName = Email
Mail.Subject = titulo
Mail.Body = strBody
Mail.IsHTML = True
Mail.AddAddress Destino
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "popup.mensagem=Erro, não foi possivel enviar sua mensagem " & Err.Description
Else
Response.Write "popup.mensagem=Mensagem enviada com sucesso!!."
End If
Set Mail = Nothing
%>
Pergunta
Teske
qual o erro que isso não vai?
botão
pagina aspvalleu
Link para o comentário
Compartilhar em outros sites
13 respostass a esta questão
Posts Recomendados
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.