<?php
$bd_host = "mysql1303.hostexcellence.com:3306/";
$bd_usuario = "alvarom_folcast";
$bd_password = "berenjena";
$db_name = "alvarom_folcast";
$db = mysql_connect($bd_host, $bd_usuario, $bd_password);
mysql_select_db($db_name, $db);

$micro;

$micro = "`     `          ````` ..^..:::::;;;???????1111111++++;++??;;;;;::^^.....``` `  ` `  ` `
  ` `      ````````` ..^::::::;;???====llllllltllllll=lll====1++;;::......`````    `  `
   `       `````  .^^:.:;;;????==llzOOOrrwrvvrrrrvrrrrttttttOlz=??+;;;;;:.^...````      `
`          `....^^^:::;;;??1lllttrrzzuuuuuZZZZZZZZZZuuuuzuzvrwttl==???;;;::^....```` `
       ```  ..^^^^::;;?11=zltrrwuuuZXXyXyX0OC7777CCOXXWVVXXZZXwzwOOzz11??;;::^...```````
 ` ` ````...^^^^::;;;?1ltrrrwuuZyyXWWpfWUVv```` `` `+OXWbbpVyyZZXuzrrtl==?;;;::^^^..````
     ```...^^:::;;++=lzrvzXXZyXVffWHHHW0I!` `   ``` `?zXWqkbppfWyZZuuvrtl=???;;:^^^. ````
 `   ```.^^^:::;??=lltwzuZXWpbbbkqH@@HkZ:`` `  `````` +dW@gHHHHbWfWyZuuvrtl==?;;:::^...```
  `````.^^::;;;??lltOvwZyVWbqHggHHMHHMHZ! ```  `````` ?dH#M@H@ggHHbpVyZZuvrtl=??;;::^...```
`` ``..^^::;;??=lzrrwuXVppkHm@@HHHMNMMHk: ```` `````  ?dMMN#HHH@@HmkkpVyZuzvOOl=?;;::....```
````...^::;??==ltrwXXyWpkqmgHMH##NMMMMNk: ` ```   ``` ?dMMMMNN##HH@@mHbWWWuuXwtl=??;+:^^..```
```..^^^::;?=lttrwuyVpbqmg@HM#NNMMMMMMMRl  ````  `` ` ?dMMMMMMMNN#H@@gmqbfyyZuvrOl??;::^^.````
``..^^^.;;+1ltrvuXyVpbHg@MMMNNMMMMMMMMNRl `````` ```` +dMMMMMMMMMNHHH@HHkbWWWZurttl=?;::....```
``..^^::;?==ltruZyfpkqg@HH##NMMMMMMMMMMHI.............+dMMMMMMMMMM##HHMHqqkpVyuvrtl=?;;:^^^.```
`...^^:;;?=ltrzuZVpkqg@HH#NNMMMMMMMMMMMMNmmmmggggggmNNNMMMMMMMMMMMMNNN#MgmqbfyZzvrtl=?;::^^..``
`..^^::;?=ltrvuZVfbqg@@H#NMMMMMMMMH0MMMMMMMMMMMMMMMMMMMMMM8UHMMMMMMMNNNH@@mqbfyXzvrt=?;;:^^^.``
...^^:;;?=ltvuZVfbqg@@H#NMMMMMMMMH0:dMMM9Y777TTTT7777TWMMNr+wWMMMMMMMNNH@@@mkpVZuzrtl??;::^^..`
..^^::;?=ltrzuyfpkm@@H#NMMMMMMMMMN0:dMNHI.````` `````.jWMMI+wMMMMMMMMMNMMH@gqpfyZuvrl=?;;:^^^.`
..^^:;;?=ltvzuyfbqg@HHNMMMMMMMMMMNk:dMMMI````````````.jWMM$1wMMMMMMMMMMMNH@@mbpVZuzrl=?;;::^^..
..^^:;;?=trvuZypbqg@HHNMMMMMMMMMMNS:dMMNI.```````````.zMMMP1wMMMMMMMMMMM#H@@mkpVZuzrl=?;;::^^..
..^^:;;?ltrvzZyfbqg@HH#NMMMMMMMMMMS!dMMN0```  ``` ```.zWMMR=OMMMMMMMMMMMHH@@mkpVZZzvO=??;:^^^..
..^^::;?=ltrzuyfbqm@HH#MMMMMMMMMMM0!dMMM$.``` ``  `` `zWMMb=zWMMMMMMMMMN#H@@gkpVyZurO=??;::^^..
..^^:;;?=ltvzZyfbqg@@HNMMMMMMMMMMNk:dMMN0```.` ```   .jWMM$1wMMMMMMMMMM#HH@@gkpVZZzrt=?;;::^^..
..^^::;?=ltvzZyfpkg@HH#NMMMMMMMMMNR:dMMMR, ````    `.+WMM#cjXMMMMMMMMMM#HH@@mbpVyuzrt=??;::^^..
..^^::;?=ltrzXyVpkHg@HHNMMMMMMMMMMN:+WMMNmx..`... ..jdMMM8:jMMMMMMMMMMMMH@@gqHfyZuzrlz??;::^^..
..^^::;??=trruZyfbqg@@H#NMMMMMMMMMNs+?WMMMNmga&&+jggMMMMD++dMMMMMMMMMMMM@@@mkpyZuurtl??;::^^^..
`..^^::;?=ztrzuXypkqg@HH#NMMMMMMMMMNm++vMMMMMMMMMMMMMMB6++dMMMMMMMMNMNMH@@gkHfyXzvrt=?;;::^^...
`...^^:;;?=ltvuZyVpkHg@HH#NMMMMMMMMMNmmxzvTMMMMMMMMH9I+JdNMMMMMMMMMMNMHHHgqkpyZuvrtl=?;;:^^^..`
`...^^::;??ztrrXZWfbHg@@HH#MMMMMMMMMMMMNma+..``!`..J&QQNMMMMMMMMMMNNMM@@MHkbfyZzrtO=?+;::^^..``
```..^^::;?1zltvuZyfWHH@@HM#NMMMMMMMMMMMMMNHo.. ..dMMMMMMMMMMMMMMMHHH@@gqbpVyZuwtl=??;:::^..```
``...^^^::;??llrvXZyWWHHg@MM#NNMMMMMMMMMMMMMD!```?WMMMMMMMMMMMMN#H@HHMgHHHyXZurOl=??;::^^^..```
```...^^:::;+?=ztvuuXVWbqqgMMMM##NMMMMMMMMMM0.  .JWMMMMMMMMMMMN#H@@@@HHHWyZuXOOz=?;;:^^^^...```
````...^^^::;??1lOrzXZyfpbqqgHMMMHHHHMMMMMM9C`  `?UMMMMMMMMHHHMMMMHqHHVyZuuvOOl??;;:+^^^..````
 `````...^^:+;;+=llrwXXyyVWkqqHW0I?!!!!!!!!!````` `!!!!!!!!??wWHmHHpWWZZXzrtl=??;;::`^...```
```````...^^^:;;??==OOwXZZWWHpWXz``` ````````````` ````````.`+XWbpyyy0wrrttl=??;;::^^...```
    ````...^^^`+;;?==ltrvuuXUWXwz+. ` ..``   ``.```  .``..`..+wXfyZZZwttll=??;;::^^^..```
   ` ````...^^^^:++?+?zOtOrrrXzvOz+??J++JJ+&+++++++++&+J+++?+zwuZXXXwOll1+;;+++``^..`````
` `    ````...^^^::+;;??=llttrrzuuuZZZyyVVffppffpffffffVVyZZuuzvrrttl=1??;:::^^^...``````
    `` `````....^^^^::++?1?=llOtrrrXXXXXZZZXZZZZZZZZZuuuuuuwwwOOOlz=?+;;;:::^^...``````
`  `   ` ````.....^^`^::+;?;???==llttOOwwvvvvvvvvvvvrrrrtttllz=?1+++;;::^^^^....`````
  `    ` ```````.....^^^^:::+++???===1zllltOtttttttllll====1?++;;;:::`^^^.....`````    `";


$microFin = "";
$letras = "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ";

	$sql="SELECT id,text,link,xmlurl FROM opml where status = 'S' order by date desc";
	$res=mysql_query($sql, $db);
	while($linea = mysql_fetch_object ($res)){

		$continuar = true;

		while($continuar){
			$indice = rand(1,strlen($micro) - 1);
			$enlace = trim($linea->link);

			if($enlace == null || $enlace == ""){
				$enlace = $linea->xmlurl;
			}

			if(strpos($letras,$micro[$indice]) != FALSE && $micro[$indice-1] != ">"){
				$microFin = substr($micro,0,$indice) .
							"<a href=\"" . strtolower($enlace) . "\" title=\"" . strtolower($linea->text) . "\">" .
							$micro[$indice] . "</a>" .
							substr($micro,$indice + 1);
				$micro = $microFin;
				$continuar = false;
			}
		}


		$response .= "<a href='" . $site . "?sec=sources&pag=podcasts&opmlid=" . $linea->id . "'>" . $linea->text . "</a><br /><br />";
	}


	mysql_free_result ($res);


?>

<html>
<head>
<title>micrófono - directorio de podcast</title>
<style>
	.texto{font-size:10px;color:#aabbdd}
	a:link{font-size:10px;color:#3366bb;text-decoration:none}
	a:visited{font-size:10px;color:#3366bb;text-decoration:none}
	a:hover{font-size:10px;color:#FF3300;text-decoration:none}
</style>
</head>
</html>
<pre class="texto"><?php
			echo $micro;
	?></pre>
<?mysql_close($db);?>