Baja Mar


  

Mi Barrio  


MP3


(Autor: Raphy Leavitt)
(Canta:Sammy Marrero)

Silencio... mi barrio duerme...

Son muchos los que critican
y no dicen la verdad.
Y es que mi Puerta de Tierra,
en su nombre lleva ya...

La mancha de unos ingratos 
que han venido aquí a parar.

Mas que importa lo que digan
esas bocas con maldad...
Si doquiera que uno vaya,
es así la humanidad...

Mas vale olvidar tus penas
que yo a ti voy a cantar.

Coro:
Hablar no vale la pena,
la lengua es la que condena.

Este es el barrio donde yo nací
el rinconcito donde yo viví.

Pero no vale no vale no vale 
no vale no vale la pena,
por esa lengua que corre suelta.

Que donde quiera que tu te metas
las lenguas te azotaran.
~
Esta es la puerta que abierta espera
cuando a este pueblo salgo a cantar.

Ay no, no, no se equivoquen con La Selecta
Puerta de Tierra de pura cepa.

   

 


 

 

<% ' Declare variables Dim ObjCounterFile, ReadCounterFile, WriteCounterFile Dim CounterFile Dim CounterHits Dim FixedDigitCount Dim DigitCount Dim DigitCountLength Dim DigitZerosToAdd Dim DigitZeroCount Dim ShowDigits Dim DigitPath ' (FixedDigitCount) will add zeros to the front of your count ' if the count is less then the (FixedDigitCount) ' just like "frontpage" counters let you do FixedDigitCount = 5 DigitPath = "digits/red_on_black" On Error Resume Next Set ObjCounterFile = Server.CreateObject("Scripting.FileSystemObject") CounterFile = Server.MapPath ("CZp.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 DigitCountLength = Len(CounterHits) If DigitCountLength < FixedDigitCount Then DigitZerosToAdd= FixedDigitCount - DigitCountLength DigitZeroCount = 1 For DigitZeroCount = DigitZeroCount to DigitZerosToAdd ShowDigits = ShowDigits & "" Next End If DigitCount = 1 For DigitCount = DigitCount to DigitCountLength ShowDigits = ShowDigits & "" Next %>