%
if Request.ServerVariables("CONTENT_LENGTH") > 0 then
html = ""
html = html & ""
html = html & "
"
html = html & ""
html = html & " "
html = html & "  | "
html = html & "
"
html = html & " "
html = html & " | FormulA!rio - FaA§a Seu Pedido | "
html = html & "
"
html = html & " "
html = html & " | | "
html = html & "
"
html = html & " "
html = html & " | Dados Pessoais | "
html = html & "
"
html = html & " "
html = html & "
| "
html = html & "
"
html = html & " "
html = html & " | Nome e Sobrenome: | "
html = html & " "&Request.Form("txtNome")&" | "
html = html & "
"
html = html & " "
html = html & " | Nome da Empresa: | "
html = html & " "&Request.Form("txtEmpresa")&" | "
html = html & "
"
html = html & " "
html = html & " | Email: | "
html = html & " "&Request.Form("txtEmail")&" | "
html = html & "
"
html = html & " "
html = html & " | Endereco: | "
html = html & " "
html = html & Request.Form("txtEndereco")
if len(Request.Form("txtNumero")) > 0 then
html = html & ", " & Request.Form("txtNumero")
end if
html = html & " | "
html = html & "
"
html = html & " "
html = html & " | CEP: | "
html = html & " "&Request.Form("txtCep")&" | "
html = html & "
"
html = html & " "
html = html & " | Bairro: | "
html = html & " "&Request.Form("txtBairro")&" | "
html = html & "
"
html = html & " "
html = html & " | Cidade: | "
html = html & " "&Request.Form("txtCidade")&" | "
html = html & "
"
html = html & " "
html = html & " | Estado: | "
html = html & " "&Request.Form("lstUF")&" | "
html = html & "
"
html = html & " "
html = html & " | Telefone: | "
html = html & " "&Request.Form("txtDDD")&" - "&Request.Form("txtTelefone")&" | "
html = html & "
"
html = html & " "
html = html & " | Celular: | "
html = html & " "&Request.Form("txtDDDCel")&" - "&Request.Form("txtTelefoneCel")&" | "
html = html & "
"
html = html & " "
html = html & " | | "
html = html & "
"
html = html & " "
html = html & " | informaçoes Adicionais | "
html = html & "
"
html = html & " "
html = html & "
| "
html = html & "
"
html = html & " "
html = html & " | Qual sua A!rea de atuaA§ALo ou que deseja atuar? | "
html = html & "
"
html = html & " "
html = html & " | "&Request.Form("txtAdicional1")&" | "
html = html & "
"
html = html & " "
html = html & " | Qual A© o pAoblico alvo da sua empresa? | "
html = html & "
"
html = html & " "
html = html & " | "&Request.Form("txtAdicional2")&" | "
html = html & "
"
html = html & " "
html = html & " | Descreva o ramo de atividade ou tipo de serviA§o que serA! feito. | "
html = html & "
"
html = html & " "
html = html & " | "&Request.Form("txtAdicional3")&" | "
html = html & "
"
html = html & " "
html = html & " | Sua empresa possui site ou blog? | "
html = html & "
"
html = html & " "
html = html & " | "
if Request.Form("rdSiteBlog") = "1" then
html = html & Request.Form("txtAdicional4")
else
html = html & "NALo"
end if
html = html & " | "
html = html & "
"
html = html & " "
html = html & " | ObservaA§Aµes | "
html = html & "
"
html = html & " "
html = html & " | "&Request.Form("txtAdicional5")&" | "
html = html & "
"
html = html & " "
html = html & " | Qual o nome que irA! aparecer em sua logo? | "
html = html & "
"
html = html & " "
html = html & " | "&Request.Form("txtAdicional6")&" | "
html = html & "
"
html = html & " "
html = html & " | Gostaria de inserir algum desenho/imagem em sua logo? | "
html = html & "
"
html = html & " "
html = html & " | "
if Request.Form("rdImg") = "1" then
html = html & Request.Form("txtAdicional7")
else
html = html & "NALo"
end if
html = html & " | "
html = html & "
"
html = html & " "
html = html & " | Gostaria de incluir frase ou slogan? Descreva. | "
html = html & "
"
html = html & " "
html = html & " | "&Request.Form("txtAdicional8")&" | "
html = html & "
"
html = html & " "
html = html & " | Informe os principais concorrentes. | "
html = html & "
"
html = html & " "
html = html & " | "&Request.Form("txtAdicional9")&" | "
html = html & "
"
html = html & " "
html = html & " | Tem alguma preferAancia de cor? | "
html = html & "
"
html = html & " "
html = html & " | "&Request.Form("txtAdicional10")&" | "
html = html & "
"
html = html & " "
html = html & " | Descreva os detalhes que vocAa julgue importante destacar para a criaA§ALo de sua logo. | "
html = html & "
"
html = html & " "
html = html & " | "&Request.Form("txtAdicional11")&" | "
html = html & "
"
html = html & " "
html = html & " | Prazo de Entrega | "
html = html & "
"
html = html & " "
html = html & " | "
if Request.Form("rdPrazo") = "N" then
html = html & "Normal"
elseif Request.Form("rdPrazo") = "U" then
html = html & "Urgente"
end if
html = html & " | "
html = html & "
"
html = html & " "
html = html & " | | "
html = html & "
"
html = html & " "
html = html & " | Hoje: " & Now() & " | "
html = html & "
"
html = html & "
"
html = html & ""
html = html & ""
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "localhost"
Mail.From = Request.Form("txtEmail")
Mail.FromName = Request.Form("txtNome")
Mail.AddAddress "logoprint@logoprint.com.br", "Marli"
Mail.Subject = "WEBSITE LOGOPRINT - FAÇA SEU PEDIDO"
Mail.Body = html
Mail.IsHTML = True
'Utilize este cAfÂ3digo caso for enviar anexo.
'Mail.AddAttachment("E:\vhosts\SEU_DOMINIO_COMPLETO\httpdocs\o-arquivo"),
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Ocorreu um erro: " & Err.Description
Else
msgErro = "Suas informaçoes foram enviadas. Breve entraremos em contato."
End If
Set Mail = Nothing
end if
%>