% @LANGUAGE = VBSCRIPT %>
<%
Option Explicit
Dim myMail, status
if Request.QueryString("enviar") = "enviar" then
Set myMail = Server.CreateObject("CDONTS.NewMail")
myMail.Send "root@isub.com.br", "midiadigital@agenciapsm.com.br", _
"Contato", "Nome = "& Request.QueryString("nome") & chr(13)& "Endereço = "& Request.QueryString("endereco") & chr(13)& "Telefone = "& Request.QueryString("telefone") & chr(13)& "E-mail= "& Request.QueryString("email") & chr(13)& "Comentário = "& Request.QueryString("comentario") & chr(13)&"", 1
Set myMail = Nothing
Response.redirect "http://www.mairieletro.com.br/resposta.asp"
end if
%>
_____Mairi______________