<% if request("nome") <> "" then 'Manda e-mail avisando corpo = "
Cursos Secovi


" corpo = corpo & "Nome: "&request("Nome")&"
" corpo = corpo & "CPF: "&request("RG")&"
" corpo = corpo & "Endereco: "&request("Endereco")&"
" corpo = corpo & "Complemento: "&request("Complemento")&"
" corpo = corpo & "Cidade: "&request("Cidade")&"
" corpo = corpo & "UF: "&request("UF")&"
" corpo = corpo & "Fone: "&request("Fone")&"
" corpo = corpo & "Email: "&request("Email")&"
" corpo = corpo & "Imobiliaria: "&request("Imobiliaria")&"
" corpo = corpo & "Pessoa: "&request("Pessoa")&"
" corpo = corpo & "Nome: "&request("Nome2")&"
" corpo = corpo & "Investimento: "&request("Investimento")&"
" corpo = corpo & "Forma de Pagamento: "&request("pgto")&"
" Set objCDOSYSMail = Server.CreateObject("CDO.Message") Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" 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/smtpconnectiontimeout") = 30 objCDOSYSCon.Fields.update Set objCDOSYSMail.Configuration = objCDOSYSCon 'e-mail do remetente objCDOSYSMail.From = email_adm'request("Email") 'e-mail do destinatário objCDOSYSMail.To = email_adm objCDOSYSMail.Subject = "Cursos Secovi - Matemática Financeira na HP 12C" objCDOSYSMail.HtmlBody = corpo objCDOSYSMail.Send Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing %> <% response.End() end if Set uf = Server.CreateObject("ADODB.Recordset") uf.ActiveConnection = MM_conecxao_STRING uf.Source = "SELECT * FROM uf order by titulo asc" uf.CursorType = 0 uf.CursorLocation = 3 uf.LockType = 1 uf.Open() %> <%=titulo%><%=by%>




Rotinas Administrativas em Locação de Imóveis 16/06/09 a 03/09/09

Desenvolver competências para preparação, captação, operação, manutenção e gerenciamento de uma carteira de locação sadia e próspera, atendendo às novas exigências do mercado imobiliário e à satisfação do cliente.