Contact us Fill in the form below or if you prefer call our Client Relationship through the number +55 11 4461-6277.
The mail has been sent successfully! We will contact you soon.
ATTENTIONField "Name" is required.
ATTENTIONField "Phone" is required.
ATTENTIONE-mail is incorrect.
ATTENTIONField "Message" is required.






<% enviar = request("enviar") if enviar <> empty then Dim siteKey, secretKey, sucessoCaptcha, captchaResponse siteKey = "6LeRFa0qAAAAABFA-YOrN_8OCDzZmmWNhDVq0H18" secretKey = "6LeRFa0qAAAAAM3NH0hkW5u71o55mOq1QqUkNpmi" sucessoCaptcha = False If Request.ServerVariables("REQUEST_METHOD") = "POST" Then texto = "Nome completo: " & request("nome") texto = texto & "
DDD/Telefone: " & request("telefone") texto = texto & "
E-mail: " & request("email_from") texto = texto & "
Mensagem: " & request("mensagem") corpoMensagem = replace(texto,"'","""") emailenvia = request("email_from") remetente = request("nome") emailrecebe= "marco.souza@acessabrasil.com.br" emailassunto="Contato - Site VANMAQ eng2" captchaResponse = Request.Form("g-recaptcha-response") If Len(captchaResponse) > 0 Then ' Validar a resposta do reCAPTCHA com o Google Dim verifyUrl, xmlhttp, responseText Set xmlhttp = Server.CreateObject("MSXML2.ServerXMLHTTP") verifyUrl = "https://www.google.com/recaptcha/api/siteverify?secret=" & secretKey & "&response=" & captchaResponse xmlhttp.Open "GET", verifyUrl, False xmlhttp.Send responseText = xmlhttp.responseText ' Verificar se a validação foi bem-sucedida If InStr(responseText, """success"": true") > 0 Then sucessoCaptcha = True set Conexao = server.createobject("ADODB.Connection") Conexao.Open "Provider=SQLOLEDB.1;SERVER=disparoemails.acessabrasil.com.br;DATABASE=disparoemails;UID=disparoemail;PWD=disparoemail16@@;" sql = "insert into DISPARO (DISPARO_REFERENCIA,DISPARO_REMETENTE_EMAIL,DISPARO_REMETENTE_NOME,DISPARO_DESTINATARIO_EMAIL,DISPARO_DESTINATARIO_NOME,DISPARO_ASSUNTO,DISPARO_MENSAGEM,DISPARO_DATA_AGENDADA,SERVIDOR_ID,DISPARO_QUANTIDADE) values (?, ?, ?, ?, ?, ?, ?, getdate(), ?, 0)" set cmd = server.createobject("ADODB.Command") cmd.ActiveConnection = Conexao cmd.CommandText = sql cmd.Parameters.Append cmd.CreateParameter(, 8, 1, 255, "Vanmaq") ' Exemplo, adaptando o seu código cmd.Parameters.Append cmd.CreateParameter(, 8, 1, 255, emailenvia) cmd.Parameters.Append cmd.CreateParameter(, 8, 1, 255, remetente) cmd.Parameters.Append cmd.CreateParameter(, 8, 1, 255, emailrecebe) cmd.Parameters.Append cmd.CreateParameter(, 8, 1, 255, emailrecebe) cmd.Parameters.Append cmd.CreateParameter(, 8, 1, 255, emailassunto) cmd.Parameters.Append cmd.CreateParameter(, 8, 1, 255, corpoMensagem) cmd.Parameters.Append cmd.CreateParameter(, 8, 1, 255, "3") ' Servidor_ID cmd.Execute corpoMensagem = replace(texto,"'","""") emailenvia = request("email_from") remetente = request("nome") emailrecebe= "marco.souza@acessabrasil.com.br" emailassunto="Contato - Site VANMAQ eng2" sql = "insert into DISPARO (DISPARO_REFERENCIA,DISPARO_REMETENTE_EMAIL,DISPARO_REMETENTE_NOME,DISPARO_DESTINATARIO_EMAIL,DISPARO_DESTINATARIO_NOME,DISPARO_ASSUNTO,DISPARO_MENSAGEM,DISPARO_DATA_AGENDADA,SERVIDOR_ID,DISPARO_QUANTIDADE) values (?, ?, ?, ?, ?, ?, ?, getdate(), ?, 0)" set cmd = server.createobject("ADODB.Command") cmd.ActiveConnection = Conexao cmd.CommandText = sql cmd.Parameters.Append cmd.CreateParameter(, 8, 1, 255, "Vanmaq") ' Exemplo, adaptando o seu código cmd.Parameters.Append cmd.CreateParameter(, 8, 1, 255, emailenvia) cmd.Parameters.Append cmd.CreateParameter(, 8, 1, 255, remetente) cmd.Parameters.Append cmd.CreateParameter(, 8, 1, 255, emailrecebe) cmd.Parameters.Append cmd.CreateParameter(, 8, 1, 255, emailrecebe) cmd.Parameters.Append cmd.CreateParameter(, 8, 1, 255, emailassunto) cmd.Parameters.Append cmd.CreateParameter(, 8, 1, 255, corpoMensagem) cmd.Parameters.Append cmd.CreateParameter(, 8, 1, 255, "3") ' Servidor_ID cmd.Execute End If End If End if %> <% end if %>