<%
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), " ")
Fone = Request.Form("Fone")
Fone = Server.HTMLEncode(Fone)
Fone = Replace(Fone, Chr(34), """)
Fone = Replace(Fone, Chr(13), " ")
DataNasc = Request.Form("DataNasc")
DataNasc = Server.HTMLEncode(DataNasc)
DataNasc = Replace(DataNasc, Chr(34), """)
DataNasc = Replace(DataNasc, Chr(13), " ")
Sexo = Request.Form("Sexo")
Area = Request.Form("Area")
IF Area = "VENDA" THEN
Area = "Venda"
ELSE
Area = "Técnico"
END IF
Texto1 = Request.Form("Texto1")
Texto1 = Server.HTMLEncode(Texto1)
Texto1 = Replace(Texto1, Chr(34), """)
Texto1 = Replace(Texto1, Chr(13), " ")
Texto2 = Request.Form("Texto2")
Texto2 = Server.HTMLEncode(Texto2)
Texto2 = Replace(Texto2, Chr(34), """)
Texto2 = Replace(Texto2, Chr(13), " ")
Texto3 = Request.Form("Texto3")
Texto3 = Server.HTMLEncode(Texto3)
Texto3 = Replace(Texto3, Chr(34), """)
Texto3 = Replace(Texto3, Chr(13), " ")
AssuntoEmail = "Curriculum"
Corpo = "CurriculumNome: "&Nome&" E-mail: "&Email&" Telefone e/ou Celular: "&Fone&" Sexo: "&Sexo&" Área de Interesse: "&Area&"
Qualificações Pessoais: "&Texto1&"
Expêriencia Profissional: "&Texto2&"
Mais Informações: "&Texto3&"
IP: "&Request.ServerVariables("REMOTE_ADDR")&""
Remetente = "digimicro@digimicro.com.br"
Destinario = "digimicro@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 = 0
'Definimos o tipo do e-mail
objMail.MailFormat = 0
'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
