Conexion->Cerrar(); } // ************************************************************************************************************************************************* ?> '?> CreaParametro("@identorno",$identorno,1); $cmd->CreaParametro("@ipserveradm",$ipserveradm,0); $cmd->CreaParametro("@portserveradm",$portserveradm,1); $cmd->CreaParametro("@protoclonacion",$protoclonacion,0); $cmd->CreaParametro("@repositorio",$repositorio,1); switch($opcion){ case $op_modificacion: $cmd->texto="UPDATE entornos SET ipserveradm=@ipserveradm,portserveradm=@portserveradm,protoclonacion=@protoclonacion,repositorio=@repositorio"; $resul=$cmd->Ejecutar(); break; default: break; } return($resul); } ?>