% if request("botao") = "Enviar" then Set objMail = Server.CreateObject("CDO.Message") objMail.From = request.form("email") objMail.To = "cvlmoveis@cvlmoveis.com.br" 'objMail.To = "cvlmoveis@cvlmoveis.com.br" objMail.Subject = "CONTATO DO SITE" email = "" email = email & "" email = email & "
" email = email & ""
email = email & " | :: CONTATO DO SITE :: | " email = email & "
| " email = email & "Nome: | " & request.form("nome") & " "
email = email & " |
| " email = email & "Endereço: | " & request.form("endereco") & " "
email = email & " |
| " email = email & "Cidade: | " & request.form("cidade") & " "
email = email & " |
| " email = email & "UF: | " & request.form("uf") & " "
email = email & " |
| " email = email & "CEP: | " & request.form("cep") & " "
email = email & " |
| " email = email & "E-mail: | " & request.form("email") & " "
email = email & " |
| " email = email & "Telefone1: | " & request.form("telefone1") & " "
email = email & " |
| " email = email & "Telefone2: | " & request.form("telefone2") & " "
email = email & " |
| " email = email & "Celular: | " & request.form("celular") & " "
email = email & " |
| " email = email & "Comentários: | " & request.form("comentarios") & " "
email = email & " |
|
||||||||||||||||||||||||||||||||