"; // echo $votar //setcookie("voto",1,time()+30*24*60*60); if(isset($_COOKIE['voto']) && $votar=="Votar") { $_COOKIE['voto']++; setcookie("voto",$_COOKIE['voto'],time()+30*24*60*60); } else { setcookie("voto",1,time()+30*24*60*60); } setlocale(LC_ALL, "es_ES"); $DBLink = mysql_connect('localhost','webtest','iluv2luv'); mysql_select_db("cnr"); function comprobar_email($email) { $mail_correcto = 0; //compruebo unas cosas primeras if ((strlen($email) >= 6) && (substr_count($email,"@") == 1) && (substr($email,0,1) != "@") && (substr($email,strlen($email)-1,1) != "@")){ if ((!strstr($email,"'")) && (!strstr($email,"\"")) && (!strstr($email,"\\")) && (!strstr($email,"\$")) && (!strstr($email," "))) { //miro si tiene caracter . if (substr_count($email,".")>= 1){ //obtengo la terminacion del dominio $term_dom = substr(strrchr ($email, '.'),1); //compruebo que la terminación del dominio sea correcta if (strlen($term_dom)>1 && strlen($term_dom)<5 && (!strstr($term_dom,"@")) ){ //compruebo que lo de antes del dominio sea correcto $antes_dom = substr($email,0,strlen($email) - strlen($term_dom) - 1); $caracter_ult = substr($antes_dom,strlen($antes_dom)-1,1); if ($caracter_ult != "@" && $caracter_ult != "."){ $mail_correcto = 1; } } } } } if ($mail_correcto) return 1; else return 0; } $comentar=$_POST['comentar']; $votar=$_POST['votar']; $ver=$_POST['ver']; $id=(int)$_POST['id']; $nover=0; $link="Encuesta"; if (empty($id)) { $id=(int)$_GET['id']; if (!empty($id)) { $nover=1; $link="Archivo de Encuestas"; } else { $sql_max="SELECT max(enc_id) as max_id FROM Encuestas"; //Seleccionar la ultima encuesta $result_max=mysql_query($sql_max) or die($sql_max." ".mysql_error()); $fila_max=mysql_fetch_object($result_max); $id=$fila_max->max_id; } } // #echo $HTTP_COOKIE_VARS["voto"]; // echo $_COOKIE["voto"]; if ($votar=="Votar" && $_COOKIE["voto"]==1 ) { $voto=intval($_POST['voto']); $id=intval($_POST['id']); $sql="UPDATE Opciones SET opt_cantidad=opt_cantidad+1 "; $sql.="WHERE (enc_id=$id AND opt_id=$voto)"; $result=mysql_query($sql) or die($sql." ".mysql_error()); $mensaje="Gracias. Su voto ha quedado registrado"; } if ($comentar=='Enviar') { $error=FALSE; $zone=3600*-5; //Zona horaria EST $fecha = gmdate("Y-m-d H:i:s",time()+$zone); $comentario=trim(addslashes(strip_tags($_POST['comentario']))); $nombre=trim($_POST['nombre']); $pais=trim($_POST['pais']); $email=trim($_POST['correo']); if (empty($nombre)) { $mensage= "Error: Debe ingresar su nombre"; $error=TRUE; } if (!comprobar_email($email)) { $mensage= "Error: El email ingresado es incorrecto"; $error=TRUE; } if (empty($pais)) { $mensage= "Error: Debe ingresar el país"; $error=TRUE; } $comentario=preg_replace("/\n/","
",$comentario); if (empty($comentario)) { $mensage= "Error: Debe ingresar su comentario"; $error=TRUE; } if (!$error) { $sql="INSERT INTO Comentarios (Encuestas_enc_id,com_nombre,com_texto,com_email,pais,com_fecha) VALUES ( $id,'$nombre','$comentario','$email','$pais','$fecha')"; $result=mysql_query($sql) or die($sql." ".mysql_error()); $mensaje="Gracias. Su comentario se validará dentro de las próximas 48 horas"; } } $sql="SELECT * FROM Encuestas WHERE enc_id=$id"; $result=mysql_query($sql) or die($sql." ".mysql_error()); $fila=mysql_fetch_object($result); $titulo=trim($fila->enc_titulo); $cantidad_si=(int)$fila->enc_si; $cantidad_no=(int)$fila->enc_no; if (empty($titulo)) $titulo = "TEMA DEL DIA"; $pregunta=trim($fila->enc_pregunta); // $fecha_encuesta = $fila->enc_fecha; $fecha_encuesta = ucfirst(strftime("%A %e de %B, %Y", strtotime($fila->enc_fecha))); $sql="SELECT sum(opt_cantidad) as opt_total FROM Opciones WHERE enc_id=$id"; $result=mysql_query($sql) or die($sql." ".mysql_error()); $opciones_total=mysql_fetch_object($result); $total=$opciones_total->opt_total; if ($total==0) $total=-1; //evitar division entre cero $sql="SELECT * FROM Opciones WHERE enc_id=$id"; $result_opciones_2=mysql_query($sql) or die($sql." ".mysql_error()); $total_result_opciones_2=mysql_num_rows($result_opciones_2); ?> Coordinadora Nacional de Radio
Escuche ahora:
Inicio
Política
Descentralización
Ecología
Cultural
Economía
Derechos Humanos
Archivo de Noticias
Buscar Noticias
Inicio
Enviar a un amigo Imprimir noticia Aumentar tamaño de fuente Reducir tamaño de fuente

-

opt_cantidad; $percent=round(($cantidad*100/$total),2); ?>
RESULTADOS DE LA ENCUESTA:
Sí ( %)
No ( %)
opt_texto; ?> ( %)
TOTAL DE VOTOS: (100 %)

0) { ?>
NUESTRO PÚBLICO OPINA:
com_nombre); $pais=ucfirst(strtolower(trim($fila->pais))); list($fecha,$hora)=split(" ",$fila->com_fecha); $fecha=date("d/m/Y", strtotime($fecha)); $hora=date("h:i A", strtotime($hora)); $nombre=trim($fila->com_nombre); $email=trim($fila->com_email); $comentario=trim($fila->com_texto); ?>
Publicado por:

Ingrese aquí su Comentario
Su Nombre :
País :
E-Mail :
Comentario :

* Gracias por su comentario. CNR se reserva el derecho de publicación de los mensajes según su idoneidad y tenor. La CNR no solidariza necesariamente con los comentarios las opiniones expresadas por sus usuarios.

 
Todas las noticias de hoy Archivo de Noticias Archivo de Encuestas
Una producción de la Coordinadora Nacional de Radio Copyright 2006.
Se autoriza la reproducción de este material citando la fuente.