%
if request.form("act") = "env" then
cad_nom = Request.Form("cad_nom")
cad_end = Request.Form("cad_end")
cad_cep = Request.Form("cad_cep")
cad_brr = Request.Form("cad_brr")
cad_cid = Request.Form("cad_cid")
cad_uf = Request.Form("cad_uf")
cad_tel = Request.Form("cad_tel")
cad_eml = Request.Form("cad_eml")
cad_cmt = replace(Request.Form("cad_cmt"),vbcrlf, "
")
body = "ENTRE EM CONTATO - SIQUEIRAIMOVEIS.COM.BR
" &_
"Data: "&date()&"
" &_
"Nome: "&cad_nom&"
" &_
"Endereço: "&cad_end&"
" &_
"CEP: "&cad_cep&"
" &_
"Bairro: "&cad_brr&"
" &_
"Cidade: "&cad_cid&"
" &_
"UF: "&cad_uf&"
" &_
"Telefone: "&cad_tel&"
" &_
"E-mail: "&cad_eml&"
" &_
cad_cmt
subject = "Entre em contato - siqueiraimoveis.com.br"
sendMail "CDOMSG", "siqueira@siqueiraimoveis.com.br", cad_eml, 0
autoForm "fale.asp", "", "", "", "Mensagem enviada"
response.End()
end if
%>