<%@ Language = "VBScript" %> <% Response.Expires = 0 if Request.ServerVariables("HTTP_METHOD") = "POST" then Function Data_Formatada(data) Dim Dia, Mes, Ano Dia = Day(data) if Len(Dia) < 2 then Dia = "0" & Dia end if Mes = Month(data) if Len(Mes) < 2 then Mes = "0" & Mes end if Ano = Year(data) Data_Formatada = Dia & "/" & Mes & "/" & Ano End Function Dim strNome,strEmpresa,strCargo,strEndereco Dim strTelefone,strEmail,strProdutoServico Dim strInfoServico,strInfoEmpresa Dim objMail,strText,strData Dim ProjectOficce, Acompanhamento, Treinamento, Modelo strNome = Trim(Request.Form("Nome")) strEmpresa = Trim(Request.Form("Empresa")) strCargo = Trim(Request.Form("Cargo")) strEndereco = Trim(Request.Form("Endereco")) strTelefone = Trim(Request.Form("Telefone")) strEmail = Trim(Request.Form("CorreioEletronico")) strData = Data_Formatada(Now()) strText = "********************************************************" & chr(13) strText = strText & "Data: " & strData & chr(13) strText = strText & "Nome: " & strNome & chr(13) strText = strText & "Cargo: " & strCargo & chr(13) strText = strText & "Empresa: " & strEmpresa & chr(13) strText = strText & "Sua Dúvida: " & strEndereco & chr(13) strText = strText & "E-mail: " & strEmail & chr(13) strText = strText & "Telefone: " & strTelefone & chr(13) 'strText = strText & "Produto ou Serviço: " & strProdutoServico strText =strText & "********************************************************" & chr(13) Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From = strEmail objMail.To = "marcoslucio@marcoslucio.com.br" objMail.Subject = "Cadastro pelo Site" objMail.BodyFormat = 1 objMail.MailFormat = 1 objMail.Body = strText objMail.Send Set objMail = Nothing end if %> > > > WM Consultoria < < <
     
   

    Mande sua mensagem!
Nome:  
Cargo:  
Empresa:  
Mensagem:  
E-mail:  
Telefone:  
     

 

     

Nosso E-mail:   marcoslucio@marcoslucio.com.br