","") conteudo=Replace(conteudo,"

","") conteudo=Replace(conteudo,"

","

") formata=conteudo end function Set pag = Request.querystring("pag") Set id = Request.querystring("id") %> <%if pag <> "" then%> <% Conn_String = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("dados") & "\sos.mdb" set conn = Server.CreateObject("ADODB.Connection") conn.open Conn_String Set sosanimal = conn.Execute("select * from " & pag & " where id =" & id) If sosanimal.eof then Response.redirect("Default.asp?pag="&pag) response.end End If %> <%end if%> <%if pag = "" then Response.redirect("Default.asp")%> <%if id = "" then Response.redirect("Default.asp")%> <% 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 pag = "" then response.write("") else response.write("") %> Principal<%if pag = "" then response.write("")%><%if pag <> "" then%> <% Response.write("  >")%> "><%select case pag case "artigos" Response.write("Artigos") case "aventurismo" Response.write("Aventurismo") case "canalanimal" Response.write("Canal Animal") case "canaljuridico" Response.write("Canal Jurídico") case "fiquepordentro" Response.write("Fique por dentro") case "legislacao" Response.write("Legislação") case "livros" Response.write("Livros") case "meioambiente" Response.write("Meio Ambriente") case "quemsomos" Response.write("Quem somos nós") case "estatuto" Response.write("Estatuto da Liga de Prevenção da Crueldade Contra o Animal") case "contato" Response.write("Fale Conosco") case else Response.redirect("Default.asp") End Select end if%> > <%= titulo%>
"> Artigos "> Aventurismo "> Canal Animal "> Canal Jurídico "> Fique por dentro "> Legislação "> Livros "> Meio Ambiente "> Quem somos nós "> Fale conosco	">Exportar página para documento do Word <%=formata(sosanimal("conteudo"))%> Filiado a OIPA - International Organization for  Animal Protection *As matérias deste site podem ser utilizadas em pesquisa, desde que seja dado o crédito ao autor e site. Página criada por Túlio Andrade da Costa Nogueira http://www.tuliowd.net/