<% Dt_Hoje = Date DiaHoje = Day(Dt_Hoje) MesHoje = Month(Dt_Hoje) AnoHoje = Year(Dt_Hoje) If len(MesHoje) = 1 Then MesHoje = "0" & MesHoje end if If len(DiaHoje) = 1 Then DiaHoje = "0" & DiaHoje end if Dt_Hoje = DiaHoje & "/" & MesHoje & "/" & AnoHoje 'Rotina para enviar o email Set objCDOMail = Server.CreateObject("CDONTS.NewMail") objCDOMail.From = EMAIL objCDOMail.To = "faleconosco@jkvirtual.com.br;comercial@jkvirtual.com.br" objCDOMail.Subject = "Trabalhe Conosco" objCDOMail.Body = EMAIL + vbCrLf + ""&_ vbCrLf & ""&_ "Data = " + Dt_Hoje + vbCrLf + ""&_ "Nome = " + Request.Form("NOME") + vbCrLf + ""&_ "Empresa = " + Request.Form("EMPRESA") + vbCrLf + ""&_ "Endereco = " + Request.Form("ENDERECO") + vbCrLf + ""&_ "Cidade = " + Request.Form("CIDADE") + vbCrLf + ""&_ "Estado = " + Request.Form("ESTADO") + vbCrLf + ""&_ "E-mail = " + Request.Form("EMAIL") + vbCrLf + ""&_ "Telefone = " + Request.Form("TELEFONE") + vbCrLf + ""&_ "CNPJ = " + Request.Form("CNPJ") + vbCrLf + ""&_ vbCrLf + ""&_ "Resumo das atividades Atuais = " + Request.Form("ATIVIDADES") + vbCrLf + ""&_ "______________________________________________________" + vbCrLf + ""&_ "Fourm - Informática" + vbCrLf + ""&_ "www.fourm.com.br" + vbCrLf + ""&_ "______________________________________________________" + vbCrLf + vbCrLf objCDOMail.BodyFormat = 0 objCDOMail.Send Set objCDOMail = Nothing %> *** Four-M Informática ***
 

 

Página Principal - TRABALHE CONOSCO

 

 

A Fourm procura ampliar seus canais de vendas através de representantes autorizados, caso tenha interesse em representar nossos Serviços/ Produtos entre em contato. 

 

Nome:

 

Empresa:

 

Endereço:

 

Cidade:

 

 Estado:

Email:

 

 Telefone:

CNPJ/CPF:

 

Resumo das atividades atuais

 

Desenvolvimento:

Four-M  Comercial e Serviços de Informática Ltda.

Rua: José Neves, 549 - JD Umuarama/ São Paulo - SP

Telefone: 0xx11-5686-5951 -  Email: fourm@fourm

JK Virtual!