Mensagem enviada pelo Site

<% Option Explicit %> <% Dim NomePagina,VetCampo(6),ValidaDados,MensagemEmail,SQL,Banco,Tab,Mensagem,Mailer,Combo,Selecao,Email,Enviou NomePagina="contato.asp" ValidaDados=true Combo="" if ucase(request.ServerVariables("REQUEST_METHOD"))="POST" then VetCampo(1)=request("TxtNome"):VetCampo(2)=request("TxtEmail") VetCampo(3)=request("TxtAssunto"):VetCampo(4)=request("TxtMensagem") VetCampo(5)=request("UseCmbDepartamento") if trim(replace(VetCampo(1),"'",""))="" then ValidaDados=false if trim(replace(VetCampo(2),"'",""))="" then ValidaDados=false if trim(replace(VetCampo(3),"'",""))="" then ValidaDados=false if trim(replace(VetCampo(4),"'",""))="" then ValidaDados=false if not isnumeric(VetCampo(5)) or isnumeric(VetCampo(5))="" then ValidaDados=false if validadados then if not validaEmail(VetCampo(2)) then ValidaDados=false end if if validadados then if VetCampo(5)="1" then Email="comercial@lutepel.com.br" elseif VetCampo(5)="2" then Email="industrial@lutepel.com.br" elseif VetCampo(5)="3" then Email="recursoshumanos@lutepel.com.br" elseif VetCampo(5)="4" then Email="compras@lutepel.com.br" elseif VetCampo(5)="5" then Email="financeiro@lutepel.com.br" end if MensagemEmail="" MensagemEmail=MensagemEmail & "" MensagemEmail=MensagemEmail & "Mensagem enviada pelo Site" MensagemEmail=MensagemEmail & "" MensagemEmail=MensagemEmail & "" MensagemEmail=MensagemEmail & "" MensagemEmail=MensagemEmail & "" MensagemEmail=MensagemEmail & "" MensagemEmail=MensagemEmail & "

" MensagemEmail=MensagemEmail & "Nome:" & VetCampo(1) & "
" MensagemEmail=MensagemEmail & "E-mail:" & VetCampo(2) & "
" MensagemEmail=MensagemEmail & "Assunto:" & VetCampo(3) & "
" MensagemEmail=MensagemEmail & "" & VetCampo(4) & "" MensagemEmail=MensagemEmail & "

" MensagemEmail=MensagemEmail & "" MensagemEmail=MensagemEmail & "" Set Mailer = Server.CreateObject("CDONTS.NewMail") with Mailer .To = Email .From = VetCampo(2) .Subject = "Mensagem Enviada pelo Site" .Body = MensagemEmail .BodyFormat = 0 .MailFormat = 0 .Importance = 1 .Send set mailer=nothing if err<>0 then response.Redirect("erro.asp?Pagina=" & NomePagina & "&Erro="& err & "- " & err.description) Enviou=1 end with response.Write(MensagemEmail) if err<>0 then response.Redirect("erro.asp?Pagina=" & NomePagina & "&Erro="& err & "- " & err.description) end if end if Tab="" Tab=Tab & " " if enviou<>1 then Tab=Tab & "" else Tab=Tab & "" end if Tab=Tab & "" Tab=Tab & "

" Tab=Tab & "

Sua Mensagem foi enviada com sucesso.

" %> Lutepel

Nossos serviços encontram-se à sua disposição. Para contactar-se conosco segue abaixo nossos endereços e telefones:

		Fábrica / Administração / Vendas
		Rua Ana Nery, 365 CEP: 18681-160 Cidade: Lençóis Paulista - SP Fone: (14) 3264-3900 Fax: (14) 3264-3902 Veja o mapa

		Depósito / Administração / Vendas
		Rua Belém, 21 Bairro: J. Santa Marta CEP: 06529-190 Cidade: Santana de Parnaíba - SP Fone: (11) 4156-9500 Fax: (11) 4156-9535

Ou se preferir, preencha corretamente os campos abaixo:

<%=Tab%>

Desenvolvimento: TBR Produções