<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

Contato

<% If Request("fVerifica") = "sim" Then vNome = Request("fNome") vEmail = Request("fEmail") vTelefone = Request("fTelefone") vMensagem = Request("fMensagem") vForm = "nao" 'Email de onde serão enviados os dados do formulário email_from = Application("a_mail") nome_from = Application("a_nome") 'Email para onde serão enviados os dados do formulário email_to = Application("a_mail_to") 'Título do email assunto_form = "Formulário de contato do site " & Application("a_nome") 'Servidor de email 'servidor = Application("a_host") If Day(Now) < 10 Then vDia = 0 & Day(Now) Else vDia = Day(Now) End If If Month(Now) < 10 Then vMes = 0 & Month(Now) Else vMes = Month(Now) End If vAno = Year(Now) If Hour(Now) < 10 Then vHora = 0 & Hour(Now) Else vHora = Hour(Now) End If If Minute(Now) < 10 Then vMinuto = 0 & Minute(Now) Else vMinuto = Minute(Now) End If vData_Hora = vDia & "/" & vMes & "/" & vAno & " - " & vHora & ":" & vMinuto mensagem = "

Formulário preenchido pelo site da ANDERGRAF

" mensagem = mensagem & "Data - Hora: " & vData_Hora & "
" mensagem = mensagem & "Nome: " & vNome & "
" mensagem = mensagem & "E-mail: " & vEmail & "
" mensagem = mensagem & "Telefone: " & vTelefone & "
" mensagem = mensagem & "Mensagem: " & vMensagem servidor = "smtp.gmail.com" username = "email@andergrafonline.com.br" senha = "andersenha" '===============================cdosys===================== Dim objCDOSYSMail Dim objCDOSYSCon Set objCDOSYSMail = Server.CreateObject("CDO.Message") Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Aqui estava o meu problema: SSL tem que ser TRUE! objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True 'o e-mail completo que você utiliza no google apps (não esqueça de habilitar SMTP no painel fo Google apps! objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "adm@andergrafonline.com.br" objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "andersenha" objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 objCDOSYSCon.Fields.update Set objCDOSYSMail.Configuration = objCDOSYSCon objCDOSYSMail.From = email_from objCDOSYSMail.To = username objCDOSYSMail.Subject = assunto_form objCDOSYSMail.HtmlBody = mensagem objCDOSYSMail.Send Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing '======fim============================================== '+++++++++++++++++++++++++++++++++ ' Set eObjMail = Server.CreateObject("Persits.MailSender") ' eObjMail.Host = servidor ' eObjMail.Port = 465 ' eObjMail.Username = username ' eObjMail.Password = senha ' eObjMail.From = email_from ' eObjMail.FromName = nome_from ' eObjMail.MailFrom = email_from '' eObjMail.AddAddress "adm@andergrafonline.com.br" ' eObjMail.Subject = assunto_form ' eObjMail.isHTML = true ' eObjMail.Body = mensagem ' eObjMail.Send ' Set eObjMail = nothing '+++++++++++++++++++++++++++++++++++++++++++++ SQL = "INSERT INTO CONTATO_CONT (" SQL = SQL & "DS_NOME_CONT" SQL = SQL & ",DS_EMAIL_CONT" SQL = SQL & ",DS_TELEFONE_CONT" SQL = SQL & ",DS_MENSAGEM_CONT" SQL = SQL & ",NR_STATUS_CONT" SQL = SQL & ") VALUES (" SQL = SQL & "'" & vNome & "'" SQL = SQL & ",'" & vEmail & "'" SQL = SQL & ",'" & vTelefone & "'" SQL = SQL & ",'" & vMensagem & "'" SQL = SQL & ",1)" bd.Execute(SQL) %>
Formulário enviado com sucesso!
Aguarde nosso contato pelo telefone ou e-mail
<% End If %> <% If vForm <> "nao" Then %>

A Andergraf que ouvir você! Utilize o formulário abaixo e deixe seu comentário, opinião, duvida ou sugestão!

Um de nossos colaboradores entrará em contato com você!

Para solicitar orçamentos utilize o formulário de orçamentos, pois assim você será atendido mais rapidamente.



<% If Session("sMSG_Contato") <> Empty Then Response.Write(Session("sMSG_Contato")) Session("sMSG_Contato") = Empty End If%>
Nome: " /> Campo necessário
E-mail: " /> Campo necessárioFormato inválido
Telefone: " /> Campo necessárioFormato inválido
Mensagem:
 
Precisely how couple of hublot replica exist. It's not possible for all of us to express, however all of us can say for certain how the Traditional edition was launched within Oct 2015, and also the brand new "2. 0" edition had been introduced from rolex replica later on. It may be properly thought which 03, in the most recent, had been possibly the finish associated with replica watches manufacturing because Tudor changed towards the 2.0, therefore it, it's quite likely, had been created for under replica watches uk. That's very a silly operate inside a marketplace in which the exact same view could be, and frequently is actually, created for any 10 years or even lengthier. As a result, it's turn out to be, undoubtedly, probably the most vintage modern Tudor, as well as perhaps probably the most vintage non-limited release replica watches within today's world.

 

<%=Application("a_nome")%>
<%=Application("a_endereco")%>
<%=Application("a_cidade")%>
Fone: <%=Application("a_tel")%> - Fax: <%=Application("a_fax")%>
<%=Application("a_mail")%>

Horário de atendimento:
segunda à sexta das 9:00 às 12:00 e das 13:30 às 18:30.
sábado das 9:00 às 13:00.

<% End If %>