<%
Nome = Request.Form("Nome")
Nome = Server.HTMLEncode(Nome)
Nome = Replace(Nome, Chr(34), """)
Nome = Replace(Nome, Chr(13), "
")
Email = Request.Form("Email")
Email = Server.HTMLEncode(Email)
Email = Replace(Email, Chr(34), """)
Email = Replace(Email, Chr(13), "
")
Assunto = Request.Form("Assunto")
Assunto = Server.HTMLEncode(Assunto)
Assunto = Replace(Assunto, Chr(34), """)
Assunto = Replace(Assunto, Chr(13), "
")
Texto = Request.Form("Texto")
Texto = Server.HTMLEncode(Texto)
Texto = Replace(Texto, Chr(34), """)
Texto = Replace(Texto, Chr(13), "
")
IF Assunto = "VENDA" THEN
AssuntoEmail = "Vendas"
ELSEIF Assunto = "SUPORTE" THEN
AssuntoEmail = "Suporte Técnico"
ELSEIF Assunto = "HELP" THEN
AssuntoEmail = "Dúvidas & Sugestões"
ELSEIF Assunto = "OUTRO" THEN
AssuntoEmail = "Outros assuntos"
END IF
Corpo = "
Contato EfetuadoNome: "&Nome&" E-mail: "&Email&"
Mensagem:
"&Texto&"
IP: "&Request.ServerVariables("REMOTE_ADDR")&"
"
Remetente = "digimicro@digimicro.com.br"
Destinario = "stenio@digimicro.com.br"
Dim objMail
set objMail = server.createobject("CDONTS.NewMail")
'Definimos quem é o remetente
objMail.From = Remetente
'Definimos quem é o destinatário
objMail.To = Destinario
'Definimos o assunto
objMail.Subject = AssuntoEmail
'Definimos o Tipo da mensagem
objMail.BodyFormat = 2
'Definimos o tipo do e-mail
objMail.MailFormat = 2
'Definimos a importância do e-mail
objMail.Importance = 2
'Definimos o texto da mensagem
objMail.Body = Corpo
'Enviamos o e-mail
objMail.Send
if err.number<>0 then 'Se houverem ocorridos erros é retornada uma mensagem de erro
Response.Write "Ocorreram erros enquanto era enviado o e-mail!"
End IF
Set objMail = nothing
'A propriedade Importance define o nível de prioridade ao enviar a mensagem que pode ser:
'0 = Baixa, 1 = Normal e 2 = Alta
'A propriedade BodyFormat defini qual é o formato que a mensagem será enviada, se for definido
'o valor 1 a mensagem será enviada como texto, se indicarmos a propriedade por 0, a mensagem será enviada em formato HTML
'A propriedade MailFormat defini qual o tipo de codificação MIME a ser usado, onde com o
'valor 0 indica que o MIME interprete o HTML, no caso se usarmos o valor 1 o MIME interpretará a mensagem como texto
%>
Digimicro Informática - Cuiabá - MT
Bem Vindo a Digimicro!
História da Empresa
A Digimicro Informática, presente no mercado desde 1991, vem mantendo através de um trabalho ágil e eficaz...
leia mais
