<%@ $Language=JScript /* PARA COLORES PHP */ %><% include("../includes/DB_Conectar.php"); /*toma la seguridad de la página imagenes_borrar.php*/ $admABMLink_manual="imagenes_borrar.php"; include("../includes/inc_auth.php"); include("../includes/funciones.php"); switch($tipo){ case 'F': $titulo = $I_associateimages; $err1 = $I_images; $col1 = $I_image; break; case 'A': $titulo = $I_associateaudio; $err1 = $I_audio; $col1 = $I_audio; break; case 'V': $titulo =$I_associatevideo; $err1 = $I_videos; $col1 = $I_video; break; case 'D': $titulo = $I_associatedocuments; $err1 = $I_documents; $col1 = $I_document; break; case 'Z': $titulo = $I_associatecompressedfiles; $err1 = $I_files; $col1 = $I_compressedfile; break; } /*Asocio elemento*/ if($advID) { //chequeo que no este asociado todavia $sql="select count(*) as cant from ADVF_Vinculante where tabID='$tabID' and fgnID='$accID' and advID='$advID' "; $rs=$conn->execute($sql); if($rs->field("cant")==0){ $sql="select count(*) as cant from ADVF_Vinculante A, ADVF B where A.advID=B.advID and B.advTipo='$tipo' and A.fgnID='$accID' and A.adrOrden!='0' and A.tabID='$tabID'"; $rs=$conn->execute($sql); $advOrden=$rs->field("cant")+1; $sql="insert into ADVF_Vinculante (tabID,fgnID,advID,adrDestacado,adrUbicacion,adrOrden) values ('$tabID','$accID','$advID','N','1','$advOrden')"; $rs=$conn->execute($sql); $c=""; %> <% } } %> <%=$I_administration%>
  <% //if($tabID=='2'){$tab_galeria=" TAB.tabID='2' and ";}//solo para galerías //busco los que ya fueron asociados con adrOrden=0 y adrOrden=1 ya que los //debo excluir en la próxima consulta $sql="select count(*) as cant,A.advID,B.advID,A.adrOrden,B.adrOrden from ADVF_Vinculante A,ADVF_Vinculante B where A.advID=B.advID and A.tabID=B.tabID and A.fgnID=B.fgnID and A.tabID='$tabID' and A.fgnID='$accID' and A.adrOrden<>B.adrOrden group by A.advID having cant>1"; $rsaux=$conn->execute($sql); $numrows=$rsaux->numrows; $notin=""; while(!$rsaux->eof){ $notin.=$rsaux->field(advID); if($t<$numrows-1){$notin.=",";} $t++; $rsaux->movenext(); } if($notin!=""){$notin=" and A.advID not in (".$notin.")";} if($ListaUser=="ls_usuario"){$filtro_usuario=" A.advAutor='$usradID' and ";} else if($ListaUser=="ls_todos"){$filtro_usuario="";} $sqabc = "select UPPER(SUBSTRING(A.advTitulo,1,1)) As Letras from ADVF A,Tablas TAB left join ADVF_Vinculante B on (A.advID=B.advID and B.tabID='$tabID' and B.fgnID='$accID') where (B.advID is null or (B.adrOrden='0' $notin)) and $filtro_usuario A.advTipo='$tipo' group by Letras"; //echo $sqabc; $qrabc = $conn->execute($sqabc); if(!$qrabc) { showError("Error XM32659","javascript: window.history.back()","Back",1); } if(!$qrabc->eof) { if(!$c){$c = $qrabc->field("Letras");} if($qrabc->field("Letras")==$c) { echo "".$qrabc->field("Letras").""; } else{ echo "".$qrabc->field("Letras").""; } $qrabc->movenext(); } while(!$qrabc->eof) { if($qrabc->field("Letras")==$c) { echo" I ".$qrabc->field("Letras").""; }else{ echo" I ".$qrabc->field("Letras").""; } $qrabc->movenext(); } %>
<% //aca listo los elementos de esa letra if(!$order || $order=="advFecha"){$order="advFecha desc";} $c = addslashes($c); $sqelem = "select A.advID,A.advTitulo,OP.usradUsuario, CAT.catNombre,A.advFecha,A.advLink from ADVF A,segUsuariosAdmin OP,ADVF_Categorias CAT left join ADVF_Vinculante B on (A.advID=B.advID and B.tabID='$tabID' and B.fgnID='$accID') where (B.advID is null or (B.adrOrden='0' $notin)) and A.advTipo='$tipo' and A.advAutor=OP.usradID and A.catID=CAT.catID and $filtro_usuario A.advTitulo like '$c%' order by $order"; //echo "$sqelem"; $rselem = $conn->execute($sqelem); if(!$rselem) { showError("Error XM32660","javascript: window.history.back()","Back",1); } if($rselem->numrows) { %> <% $color="#eeefff"; while(!$rselem->eof) { %> > <% if($color=="#eeefff"){$color="#dcdcee";} else if($color=="#dcdcee"){$color="#eeefff";} $rselem->movenext(); } %>
<%if($order=="advTitulo"){echo "$col1";}else{echo $col1;}%> <%if($order=="catNombre"){echo "$I_category";}else{echo $I_category;}%> <%if($order=="usradUsuario"){echo "$I_author";}else{echo $I_author;}%> <%if($order=="advFecha desc"){echo "$I_date";}else{echo $I_date;}%>  
 <%=ver_Icono($rselem->field(advLink))%> <%if($tipo!='F'){%><%=$rselem->field(advTitulo)%><%}else{%><%=$rselem->field(advTitulo)%><%}%>  <%=$rselem->field(catNombre);%>  <%=$rselem->field(usradUsuario);%> <%=verFecha($rselem->field(advFecha));%> <%=$I_associate%>
<%}else{%>
<%=$I_therearenotavailable%> <%=$err1%>

<%}%>