con valores procedentes de una tabla
// Parametros:
// - cmd:Un comando ya operativo (con conexión abierta)
// - idcentro:Centro al que pertene el registro donde se encuentra el dato a recuperar, será 0 para no contemplar este dato
// - nombretabla: Nombre de la tabla origen de los datos
// - identificador: Valor del campo identificador del registro
// - nombreid: Nombre del campo identificador del registro
// - nombreliteral: Nombre del campo de la tabla que mostrará el desplegable
// - ancho: Anchura del desplegable
// - eventochg: Nombre de la función que se ejecutará en respuesta al evento onchange( por defecto: ninguna)
// - clase: Clase que define su estilo (por defecto: formulariodatos)
// - clausulawhere: Clausula Where adicional
// *************************************************************************************************************************************************
function HTMLSELECT($cmd,$idcentro,$nombretabla,$identificador,$nombreid,$nombreliteral,$ancho,$eventochg = "",$clase="",$clausulawhere="",$nwname=""){
$nombretabla=htmlentities($nombretabla);
$nombreid=htmlentities($nombreid);
$nombreliteral=htmlentities($nombreliteral);
if (!empty($eventochg)) $eventochg='onchange="'.$eventochg.'(this);"';
if (empty($clase)) $clase='formulariodatos';
if (empty($nwname)) $nwname=$nombreid;
$SelectHtml="";
$rs=new Recordset;
if ($idcentro>0){
$cmd->texto='SELECT * FROM '.$nombretabla.' WHERE idcentro='.$idcentro;
if(!empty($clausulawhere))
$cmd->texto.=" AND (".$clausulawhere.")";
}
else{
$cmd->texto='SELECT DISTINCT '.$nombreid.', '.$nombreliteral.' FROM '.$nombretabla;
if(!empty($clausulawhere))
$cmd->texto.=" WHERE (".$clausulawhere.")";
}
$cmd->texto.=' ORDER BY '.$nombreliteral;
//echo " ".$cmd->texto;
$rs->Comando=&$cmd;
if (!$rs->Abrir()) return(""); // Error al abrir recordset
$SelectHtml.= '';
$rs->Cerrar();
return($SelectHtml);
}