<% if request.Form("send")="true" then Call enviar() End if sub enviar() nome = Server.HtmlEncode(Trim(Request.Form("nome"))) cidade = Server.HtmlEncode(Trim(Request.Form("cidade"))) estado = Server.HtmlEncode(Trim(Request.Form("estado"))) email = Server.HtmlEncode(Trim(Request.Form("end_eletronico"))) dd = Server.HtmlEncode(Trim(Request.Form("fone1"))) tel = Server.HtmlEncode(Trim(Request.Form("fone2"))) msg = Server.HtmlEncode(Trim(Request.Form("mensagem"))) corpo1 = ("Dados do Contato:

Nome: " & nome & "
Cidade: " & cidade & "
Estado: " & estado & "
Email: " & email) corpo2 = ("
Telefone: (" & dd & ") " & tel & "
Mensagem:
" & msg) Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "mail-nt.braslink.com" Mail.From = "contato@vbmtransportes.com.br" Mail.FromName = "WebSite" destinatario="vbm@vbmtransportes.com.br" Mail.AddAddress destinatario 'Descomente a linha abaixo para enviar e-mail em formato HTML 'Mail.IsHTML = True Mail.Subject = "Contato" Mail.Body = "" & corpo1 & corpo2 & "" Mail.IsHTML = True erro = "" sucesso = False On Error Resume Next 'Verifica erros Mail.Send 'Envia mensagem If Err <> 0 Then erro = Err.Description else sucesso = True End If If erro <> "" Then msg = "Não foi possível enviar o e-mail." End If If sucesso Then msg = "Email enviado com sucesso!\nAguarde que breve retornaremos." End If response.Write("") end sub Set Mail = nothing %>
   Porto Alegre / RS -
   
Fale Conosco:
Nome:
Cidade:        UF:
E-mail:
Fone:  
Mensagem:
R. Prof. Guerreiro Lima, 473 - Porto Alegre/RS - Brasil
Skype: vbmtransportes
Fone: 55 51 3352-8282
contato@vbmtransportes.com.br
 
Mudanças
Guarda Móveis
Içamento