<% ' DECLARAÇÃO DE VARIÁVEIS dim secoes, categorias2, conteudos, conteudos_eventos, sql_secoes, sql_conteudos,sql_conteudos_eventos, sql_registro, cont, idioma ,secao, categoria, vartexto,num_car, posicao posicao = 1 idioma = 1 'português '" & secao & " '" & categoria & " ' CRIANDO CONSULTAS 'Set secoes = Server.CreateObject("ADODB.RecordSet") 'sql_secoes = "SELECT * FROM secoes WHERE codigo_secao = " & secao & " AND codigo_idioma_secao = " & idioma & " AND status_secao = 1 " ' secoes.open sql_secoes, cn ' CRIANDO CONSULTAS Set eventos = Server.CreateObject("ADODB.RecordSet") sql_eventos = "SELECT * FROM conteudos WHERE codigo_secao_conteudo = 1 AND codigo_categoria_conteudo = 2 AND codigo_idioma_conteudo = " & idioma & " AND status_conteudo = 1 ORDER BY data_inclusao_conteudo desc" eventos.open sql_eventos, cn Set conteudos = Server.CreateObject("ADODB.RecordSet") sql_conteudos = "SELECT * FROM conteudos WHERE codigo_secao_conteudo = 1 AND codigo_categoria_conteudo = 1 AND codigo_idioma_conteudo = " & idioma & " AND status_conteudo = 1 ORDER BY data_inclusao_conteudo desc" conteudos.open sql_conteudos, cn 'response.write sql_conteudos %>
<% Function FormataData(Data) If Data <> "" Then FormataData = Right("0" & DatePart("d", Data),2) & "/" & Right("0" & DatePart("m", Data),2) & "/" & DatePart("yyyy", Data) End Function %>
Estude 2013 Campus I Curso de Administração Enfermagem matematica Eng. de Produção Educação fisica Campus II Curso de Direito Faculdade Curso Turismo 2012 Campus III Curso de Fisioterapia Curso de Pedagogia Graduação Tecnológica Campus IV Tec. gestão Hospitalar Segurança no Trabalho Curso Redes 2012 Curso Marketing 2012 Campus IV Curso Gestão Comercial 2012 Curso de Gestão Hospitalar Fies Estude 2012 Aluno EAD Pós Barra

<% cont = 0 while not conteudos.eof and cont <= 5 %> <% cont = cont + 1 conteudos.movenext wend %>

Notícias

<%= replace(FormataData(conteudos("data_conteudo")), "/", ".")%> <% vartexto = "" & conteudos("detalhe_conteudo") & "" vatexto = replace(detalhe_conteudo,"body {background: #FFF;}","") num_car = len(vartexto) if num_car > 10 then response.Write("" & vartexto & "
") else response.Write("" & vartexto & "
") end if %>

<% cont = 0 while not eventos.eof and cont <= 5 %> <% cont = cont + 1 eventos.movenext wend %>

Eventos

<%= replace(FormataData(eventos("data_conteudo")), "/", ".")%> <% vartexto = "" & eventos("detalhe_conteudo") & "" vatexto = replace(detalhe_conteudo,"body {background: #FFF;}","") num_car = len(vartexto) if num_car > 10 then response.Write("" & vartexto & "
") else response.Write("" & vartexto & "
") end if %>

Destaque


Conheça nossas unidades [+]