|
|
<%if pag = "" then %>

Saiba quais são os direitos dos animais e do meio ambiente, lendo artigos dos mais
notáveis especialistas do Brasil.
Últimos textos:
<%tipo = "canaljuridico"%>
|
clique aqui
|

Os mais interessantes temas selecionados por quem entende do assunto.
Últimos textos:
<%tipo = "artigos"%>
|
clique aqui
|

Fique sabendo tudo que está acontecendo no planeta em relação ao meio ambiente e os animais.
Últimos textos:
<%tipo = "fiquepordentro"%>
|
clique aqui
|

Relatos imperdíveis das viagens de nossa equipe aos locais mais charmosos do mundo.
Últimos textos:
<%tipo = "aventurismo"%>
|
clique aqui
|

Descubra o mundo animal com os artigos sobre cães, gatos e pássaros dos integrantes de LPCA.
Últimos textos:
<%tipo = "canalanimal"%>
|
clique aqui
|

Saiba quais são as leis que protegem o meio ambiente e os animais, em vigor no Brasil.
Últimos textos:
<%tipo = "legislacao"%>
|
clique aqui
|
|
 |

* Edição Virtual
Um livro que fala da situação dos animais na sociedade e no mundo jurídico e de
seus fundamentos filosóficos, dos códigos morais, dos códigos legais, do direito
pátrio, do direito comunitário e do direito internacional.
|
|
|

O manual, de maneira ampla e completa, enfoca as novas leis ambientais, como a Lei
do Sistema Nacional de Unidades de Conservação, estatuto da Cidade, Gerenciamento
de Recursos Hídricos, Lei de Biossegurança, Lei de Crimes Ambientais, Política Nacional
de Meio Ambiente, entre outras.
|
|
|

Em contrapartida relata, com mais de 90 fotos, a história que os animais podem contar
dos homens, que cometem um massacre secular dos animais, com respaldo da igreja
e da sociedade, para todos os fins.
|
|
|

* Edição Virtual
Conta a crueldade feita pelo homem aos animais, nos mais diversos lugares.
|
|
|

* Edição Virtual
Este livro mostra o patrimônio histórico e turístico além do conhecimento de juristas,
historiadores ou filósofos para descrevê-lo como uma riqueza de valor único, e de
como se pode percebê-lo como sendo o verdadeiro Jardim do Éden.
|
|
|
Para comprar os livros acima clique aqui
ou compre na Rua Goitacazes, 82 - Centro - Belo Horizonte - MG
Tel.: 3213-2777
|
|
 |
<% else %>
<%
if pag <> "" then
if pag <> "quemsomos" then
if pag <> "estatuto" then
if pag <> "contato" then
%>
<%
LojaDB_String = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("dados") & "\sos.mdb"
Set LojaDB = server.createobject("adodb.connection")
Set sosanimal = server.createobject("adodb.recordset")
LojaDB.open LojaDB_String
sosanimal.open "select * from " & pag & " where status<>0 order by id", LojaDB
If sosanimal.eof then
response.write("Nenhum registro foi encontrado.")
Response.End
End If
%>
<%If Not sosanimal.EOF then
sosanimal.MoveFirst
Do while Not (sosanimal.EOF)
ColNum = 1 ' Inicia na coluna 1
%>
<%Do while (ColNum <= 4) And Not (sosanimal.EOF)
%>
<%
set titulo=sosanimal("titulo")
If Len(titulo)>0 then
titulo = Ucase(Left(titulo,1))&Right(titulo, Len(titulo)-1)
else
titulo="Sem titulo"
end if
%>
"><%if sosanimal("data") <> "" then%>
<%=Day(sosanimal("data")) & "/"%>
<%if month(sosanimal("data")) < 10 then response.write"0"%>
<%=month(sosanimal("data")) & "/" & year(sosanimal("data"))%>
- <%end if%><%=titulo%>
<%
sosanimal.MoveNext
ColNum = ColNum + 1
Loop
%>
<%
Loop
End If
sosanimal.Close
LojaDB.Close
set sosanimal = nothing
set LojaDB = nothing
%>
|
<%end if%>
<%end if%>
<%end if%>
<%end if%>
<%if pag = "quemsomos" then%>
<%end if%>
<%if pag = "estatuto" then%>
<%end if%>
<%if pag = "contato" then%>
<%end if%>
<%end if %>
|