<% @LANGUAGE = VBScript %> <% Option Explicit %> <% Response.Expires = 0 %> Cheveste <% Dim strnome, strendereco, strcidade, struf, stremail, strddd, strtelefone, strarquivo, strcomentario, htmlText, htmlResposta strnome = Trim(Request.Form("nome")) strendereco = Trim(Request.Form("endereco")) strcidade = Trim(Request.Form("cidade")) struf = Trim(Request.Form("uf")) stremail = Trim(Request.Form("email")) strddd = Trim(Request.Form("ddd")) strtelefone = Trim(Request.Form("telefone")) strarquivo = Trim(Request.Form("arquivo")) strcomentario = Trim(Request.Form("comentario")) htmlText = strnome htmlText = htmlText & "
" & strendereco htmlText = htmlText & "
" & strcidade htmlText = htmlText & "
" & struf htmlText = htmlText & "
" & stremail htmlText = htmlText & "
" & strddd htmlText = htmlText & "
" & strtelefone htmlText = htmlText & "
" & strarquivo htmlText = htmlText & "
" & strcomentario If (strnome <> "" And strendereco <> "" And strtelefone <> "") Then Dim objMail Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From = "edison@cheveste.com.br" objMail.To = "edison@cheveste.com.br" objMail.Subject = "Contato do Website" objMail.BodyFormat = 0 objMail.MailFormat = 0 objMail.Body = htmlText objMail.Send Response.Write "

Sua mensagem foi enviada com sucesso!

" Set objMail = Nothing Else %>
" method="post">
Preencha os campos abaixo, e depois clique em 'Enviar'   Seu comentário:
     
Nome:  
Endereço:  
Cidade:  
UF:  
E-mail:  
Fone:  
  
Anexar arquivo:  
   
<% End If %>

 


Utilize o formulário abaixo para entrar em contato conosco, enviar dúvidas e sugestões. Utilize também o campo de envio de arquivos e envie o conteúdo para elaborarmos seu cartão.
Entre em contato com a Cheveste!
 
Rua Santos Ferreira, 991
55 (51) 472-6966/4728882

Canoas/RS - Brasil
CEP: 92020-001