<% @ 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 %> <% if (strAction="") or (strAction="home") then %>
                                                                                                                                                                                                       
   
           
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
                                                           
                                                                                                         
                                                                                                 
                                      <% NomPagina = "index.asp?action=home" '# Indicare la pagina dove è inserito questo script comprese le variabili da passare VarPagina = "&" RecPerPagina = RecPerPag If objNews.EOF = true or objNews.BOF = true then response.write " " Response.write strNoNews response.write " " Else TotRecord = objNews.RecordCount If TotRecord < RecPerPagina Then Pagine = 1 Else Pagine = TotRecord / RecPerPagina End If ArrPagine = Round(Pagine) If Pagine > ArrPagine then Pagine = ArrPagine + 1 Else Pagine = ArrPagine End If Pagina = Request("page") If Pagina = "" Then Pagina = 1 End If PrimoRecord = (Pagina * RecPerPagina) - (RecPerPagina - 1) UltimoRecord = PrimoRecord + RecPerPagina objNews.Move(PrimoRecord - 1) For Conteggio = 1 to RecPerPagina If objNews.Eof then Conteggio = RecPerPagina Else %> <%= strMainTitle %>

"> <%= objNews("title")%> 

<%= objNews("author")%>

<%= objNews("date")%>

<% objNews.MoveNext End If Next Indietro = Pagina - 1 Avanti = Pagina + 1 response.write "" If Pagina > 1 then Response.write "" & "First" & "" Response.write " - " & "Back" & "" Response.write " - " End If Response.write "Page " & Pagina & " of " & Pagine & " " If not objNews.EOF then Response.write " - " & "" & "Next" & " " Response.write " - " & "" & "Last" & " " End If End If response.write "" %> 		                                                         
                                     
                                                                                                                       
                                 
<% ' Text Hit Counter Example By www.PowerASP.com ' Declare variables Dim ObjCounterFile, ReadCounterFile, WriteCounterFile Dim CounterFile Dim CounterHits Set ObjCounterFile = Server.CreateObject("Scripting.FileSystemObject") CounterFile = Server.MapPath ("counter.txt") Set ReadCounterFile= ObjCounterFile.OpenTextFile (CounterFile, 1, True) If Not ReadCounterFile.AtEndOfStream Then CounterHits = Trim(ReadCounterFile.ReadLine) If CounterHits = "" Then CounterHits = 0 Else CounterHits = 0 End If ReadCounterFile.Close Set ReadCounterFile = Nothing CounterHits = CounterHits + 1 Set WriteCounterFile= ObjCounterFile.CreateTextFile (CounterFile, True) WriteCounterFile.WriteLine(CounterHits) WriteCounterFile.Close Set WriteCounterFile = Nothing Set ObjCounterFile = Nothing %> <% =CounterHits %> Visitas
                                    
                                                                                                                                                                                                       
                                                                                                                                                                                                       
                                                                                                                                                                                                       

 

 

 

 

 

 

 

 

<% NomPagina = "index.asp?action=home" '# Indicare la pagina dove č inserito questo script comprese le variabili da passare VarPagina = "&" RecPerPagina = RecPerPag If objNews.EOF = true or objNews.BOF = true then response.write " " Response.write strNoNews response.write " " Else TotRecord = objNews.RecordCount If TotRecord < RecPerPagina Then Pagine = 1 Else Pagine = TotRecord / RecPerPagina End If ArrPagine = Round(Pagine) If Pagine > ArrPagine then Pagine = ArrPagine + 1 Else Pagine = ArrPagine End If Pagina = Request("page") If Pagina = "" Then Pagina = 1 End If PrimoRecord = (Pagina * RecPerPagina) - (RecPerPagina - 1) UltimoRecord = PrimoRecord + RecPerPagina objNews.Move(PrimoRecord - 1) For Conteggio = 1 to RecPerPagina If objNews.Eof then Conteggio = RecPerPagina Else %>

"> <%= objNews("title")%> 

<%= objNews("author")%>

<%= objNews("date")%>

<% objNews.MoveNext End If Next Indietro = Pagina - 1 Avanti = Pagina + 1 response.write "" If Pagina > 1 then Response.write "" & "First" & "" Response.write " - " & "Back" & "" Response.write " - " End If Response.write "Page " & Pagina & " of " & Pagine & " " If not objNews.EOF then Response.write " - " & "" & "Next" & " " Response.write " - " & "" & "Last" & " " End If End If response.write "" %>

For the full news, click on the title.

Escreva um comentário

producaoŠ itaparicainfoco.com.br  
<% end if %> <% if strAction="detail" then %>
<%= objNewsDett("title")%> (<%= objNewsDett("date")%>)

<%= objNewsDett("text")%>

<% if objNewsComm.BOF then response.write "

"& strNoComm &"" else %>

Comentários:

<% do while not objNewsComm.EOF %>
<%= objNewsComm("author")%>  <%= objNewsComm("date")%> 

<%= objNewsComm("text")%> 

<% objNewsComm.MoveNext Loop %>

<% end if %>

 Escreva um novo Comentário. | Volte para página a página do evento. 

<% end if %> <% if strAction="postcomment" then %>

Escreva um Comentário sobre a Notícia.

Seu nome:

(max 50 character)
Comentário:

(max 250 character)

 

 Volte para a página do evento 
<% end if %> <% if strAction="sendcomment" then %>

Escreva um comentário.

Seu nome:

<%= strName %>
Texto:

<%= strText %>

 Volte para página do evento   |  Vá para o comentário  
<% end if %> <% if strAction="postnews" then %>

Escreva um Comentário

Seu nome:

(max 50 character)
Título:

(max 50 character)
Comentário:

(max 250 character)

 

Voltar para página do evento 
<% end if %> <% if strAction="sendnews" then %>

Comentário inserido com Sucesso.

Seu Nome:

<%= strName %>
Titulo:

<%= strTitle %>
Comentário:

<%= strText %>

Voltar para páginado evento  
<% end if %> <% 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 %>