Notícias
<% conta_news = 1 sql = " SELECT id_noticia, titulo, nome_img, dia, mes, ano "&_ " FROM tbe_noticias WHERE situacao = 1 and capa = 1 ORDER BY ano desc, mes desc, dia desc, titulo limit 6" '" FROM tbe_noticias WHERE situacao = 1 and capa = 1 ORDER BY ordenacao LIMIT 6" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, ConnStr If rs.EOF Then Response.write ""
Response.write "
" Response.write " Nenhum registro " Response.write "
"
Else
Do While Not rs.EOF
resto = conta_news Mod 2
if resto = 0 then
classe_news = "last"
else
classe_news = ""
end if
nome_img = rs("nome_img")
'if nome_img = "SEM" then
id_noticia = RS("id_noticia")
titulo = RS("titulo")
%>
" Response.write " Nenhum registro " Response.write "
"><%=titulo%>
<% dia=rs("dia") mes=rs("mes") ano=rs("ano") if dia < 10 then dia = "0"&dia end if if mes < 10 then mes = "0"&mes end if v_mes=mes if v_mes = 01 then v_mes="JAN" elseif v_mes = 02 then v_mes="FEV" elseif v_mes = 03 then v_mes="MAR" elseif v_mes = 04 then v_mes="ABR" elseif v_mes = 05 then v_mes="MAI" elseif v_mes = 06 then v_mes="JUN" elseif v_mes = 07 then v_mes="JUL" elseif v_mes = 08 then v_mes="AGO" elseif v_mes = 09 then v_mes="Set" elseif v_mes = 10 then v_mes="Out" elseif v_mes = 11 then v_mes="Nov" elseif v_mes = 12 then v_mes="Dez" end if%> <%=dia%>/ <%=v_mes%>/ <%=ano%>
Revista Master
<% sql_revista_master = " SELECT id_master, numero, titulo, meses, dia, nome_img, nome_arq "&_ " FROM tbe_master WHERE situacao = 1 ORDER BY ano desc, mes desc, dia desc LIMIT 1" Set rs_revista_master = Server.CreateObject("ADODB.Recordset") rs_revista_master.Open sql_revista_master, ConnStr If rs_revista_master.EOF Then Response.write ""
Response.write "
" Response.write " Nenhum registro " Response.write "
"
Else
%>
" target="_blank">
" Response.write " Nenhum registro " Response.write "
" target="_blank"> <%=rs_revista_master("titulo")%>
Edição: <%=rs_revista_master("numero")%> | <%=rs_revista_master("meses")%>
" target="_blank" title="Revista Master" class="read-more-text"> Leia esta ediçãoConfira todas edições <% end if rs_revista_master.close Set rs_revista_master = nothing %>
Serviços
Galeria de Fotos
-
<%
sql_fotos = " SELECT fot.id_galeria_foto, fot.titulo, fot.resumo, data_galeria_foto, fot_img.nome_img "&_
" FROM tbe_galeria_fotos fot, tbe_galeria_fotos_img fot_img "&_
" WHERE fot.id_galeria_foto = fot_img.id_galeria_foto and situacao = 1 "&_
" GROUP BY fot.id_galeria_foto ORDER BY ANO DESC, MES DESC, DIA DESC LIMIT 6"
Set rs_fotos = Server.CreateObject("ADODB.Recordset")
rs_fotos.Open sql_fotos, ConnStr
Do While Not rs_fotos.EOF
id_galeria_foto = rs_fotos("id_galeria_foto")
titulo_foto = rs_fotos("titulo")
%>
- <% rs_fotos.movenext loop rs_fotos.close Set rs_fotos = nothing %>
Receba nossa Newsletter
Digite seu e-mail abaixo e receba informações do Conselho Regional de Administração do Rio Grande do Sul
