SERVC - Empréstimo para aposentados, Pensionistas do INSS

<% IF Request.QueryString("acao") = "envia" then corpo = "Nome: "&Request.Form("nome")&_ "
E-mail: "&Request.Form("email")&_ "
Assunto: "&Request.Form("assunto")&_ "
Mensagem: "&Request.Form("mensagem") 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") = "mail.laredartes.com.br" objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "correio@laredartes.com.br" objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "1234" objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 objCDOSYSCon.Fields.update Set objCDOSYSMail.Configuration = objCDOSYSCon objCDOSYSMail.From = Request.Form("email") objCDOSYSMail.To = "rddois@gmail.com" objCDOSYSMail.Subject = Request.Form("assunto") 'PARA ENVIO DA MENSAGEM NO FORMATO HTML, ALTERE O TextBody PARA HtmlBody objCDOSYSMail.HtmlBody = corpo objCDOSYSMail.Send Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing msg = "Mensagem Enviada com Sucesso!" End if %>

Saiba onde estamos localizados:


	Endereço: Matriz: Av. Antonio A. de Lima, 620 - Sala 03 Arujá - Fone: (11) 4651-2889


	Filial: Av. Dr. Emilío Ribas, 2425 Guarulhos - SP Fone: (11) 6485-4661

	Av. Dr. Emilío Ribas, 2010 - Ao Lado do Banco do Brasil Guarulhos - SP Fone: (11) 6425-2834