Digite seus dados e entre em contato direto conosco:

<% SELECT CASE request("a") CASE "" %>
Nome
Telefone
Cidade
Estado
E-mail
Comentário

<%=submit%>

<% CASE "submit" %> <% if request.querystring("a") = "submit" then function palavra(str) strResultado = str palavra = strResultado palavra = replace(palavra,chr(13),"
") palavra = replace(palavra,"'",chr(96)) palavra = replace(palavra,chr(34),chr(39)) palavra = palavra end function msg = msg & "" for each i in request.form() if i <> "B1" then msg = msg & " " msg = msg & " " msg = msg & " " msg = msg & " " end if next msg = msg & "
" & Ucase(i) & "" & palavra(request.form(i)) & "
" Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "200.234.222.222" ' Specify a valid SMTP server Mail.From = request.form("email") ' Specify sender's address Mail.FromName = request.form("nome") ' Specify sender's name Mail.AddAddress "datatec@datatecinformatica.com.br" Mail.Subject = "Mensagem" Mail.isHTML = true Mail.Body = msg On Error Resume Next Mail.Send if Err = 0 then resposta = "Sua mensagem foi enviado, com sucessos" else resposta = "Opps, ocorreram erros, tente novamente " & Err.description end if end if %> <%=resposta%> <% END SELECT %>