<% @ language="Vbscript" %> <% '######################################################### '# # '# Delas.it news system, a system of news # '# where every news can be commented. # '# This is a free code and you can use it as you want # '# but i enjoy if you want say me that you use it. # '# P.S.: sorry for my english... i'm italian! # '# # '# http://www.delas.it delas@delas.it # '# # '# Soon the second relase with many more features... # '#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~# '# # '# These are the variables that must be modificated: # '# # '######################################################### strURLdb = "db/database.mdb" 'Enter here the url of the database RecPerPag = 5 'Enter here the number of news printed per page strNoComm = "There aren't comments for this news." 'The message if there aren't comments for the news strNoNews = "There aren't record in the database." 'The message if there aren't news in the database strMainTitle = "These are all the news from the datbase." 'The title of the main page '######################################################### '# Dont't modify the code under here! # '# all right reserved, Delas.it # '######################################################### '######################################################### %> <% strAction = request("action") iIDNews = request("id") iIdNewsRif = request("idrif") if strAction = "sendcomment" then strName = Request("name") strText = Request("text") end if if strAction = "sendnews" then strName = Request("name") strText = Request("text") strTitle = Request("title") end if %> <% Set conn = Server.CreateObject("ADODB.Connection") conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath(strURLdb) 'Recordset for all news set objNews=server.createobject("adodb.recordset") sql="select * from news order by news.id desc" objNews.open sql,conn,3,3 'Recordset for the news details if strAction="detail" then set objNewsDett=server.createobject("adodb.recordset") sql="select * from news where id="& iIDNews &"" objNewsDett.open sql,conn,3,3 end if 'Recordset for the news comments if strAction="detail" then set objNewsComm=server.createobject("adodb.recordset") sql="select * from comments where idrif="& iIDNews &" order by comments.id desc" objNewsComm.open sql,conn,3,3 end if 'Recordset for add a new comment if strAction="sendcomment" then set objAddComm=server.createobject("adodb.recordset") sql="select * from comments where idrif="& iIdNewsRif &"" objAddComm.open sql,conn,3,3 objAddComm.AddNew objAddComm("author") = strName objAddComm("text") = strText objAddComm("idrif") = iIdNewsRif objAddComm("date") = Now() objAddComm.Update end if 'Recordset for add a new news if strAction="sendnews" then set objAddNews=server.createobject("adodb.recordset") sql="select * from news" objAddNews.open sql,conn,3,3 objAddNews.AddNew objAddNews("author") = strName objAddNews("title") = strTitle objAddNews("text") = strText objAddNews("date") = Now() objAddNews.Update end if %> <% if strAction = "detail" then response.write ""& objNewsDett("title") &" - Powered by Delas.it" elseif strAction = "postcomment" then response.write "Post a new comment - Delas.it news system" elseif strAction = "postnews" then response.write "Post a new news - Delas.it news system" else response.write "Index news - Delas.it news system" end if %>
                                                                                                                                                                                                       
   
           
Desde 06 de Setembro de 2007
                                               
               
                                                                                                                                                                             
                                                                                                                                                                                                       
                   
OS CABOCLOS DE ITAPARICA
  
Leia sobre a história e Dramatização do Caboclo de Itaparica
     
                                       

O cortejo do caboclo e/ou cabocla. Entretanto, evidencia-se a singularidade da festa de Itaparica, incluindo a encenação em praça pública, Uma trajetória de negociações culturais é sugerida pela observação do hibridismo na encenação.

   
     
             
                                       
Clique aqui ou na Imagem para baixar o roteiro do Caboclos
     
 
Clima/Tempo
        
     
                                           
       
                   
                                         
               
                                                 
                   
                                                 
                   
                                           
       
                                                                   
                                               
 
Créditos
                
                                                                                                             
                                           
O Caboclo vence Dragão da Tirania
     
                                           
Elemento indígena teve importante participação nas lutas da Independência. representando o verdadeiro brasileiro, o dono das terras que somara seus esforços aos demais combatentes.		      
                                                 
                                          É cuidando de nossa cultura que garantimos nossas raízes !            
                                       

 Originados da familia dos índios Guaranis e Tupinambás, os caboclos , nativos de nossas terras , fizeram história e revolução em batalhas contra os portugues dentro da Ilha de itaparica. ... Ícaro Dias
         
                                               
                                                                             
                                     
Caçador das matas segurando "os Caboclos" na mão
                                                           
                                                                                                         
                                     
                                                           
                                                                                               
                                     
                           
                                                                                           
                                 
                                   
                                                                                                                                                                                                       
                                                                                                                                                                                                       
                                                                                                                                                                                                       
<% if (strAction="") or (strAction="home") then objNews.close Set objNews = nothing end if if strAction="detail" then objNewsDett.close Set objNewsDett = nothing end if if strAction="detail" then objNewsComm.close Set objNewsComm = nothing end if if strAction="sendcomment" then objAddComm.close Set objAddComm = nothing end if if strAction="sendnews" then objAddNews.close Set objAddNews = nothing end if conn.close Set conn=nothing %>